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Section  1 
INTRODUCTION 

The  purpose  of  this  report  is  to  give  a  detailed  description 
of  a  speech  display  simulation  system  which  has  been  programmed  for  the 
CDC  160U  computer  system  located  at  the  Coordinated  Science  Laboratory 
at  the  University  of  Illinois.   This  simulator  was  written  as  part  of  an 
investigation  into  the  relative  effectiveness  of  various  types  of  speech 
displays  (Nordmann  [1971]) •   As  such,  its  primary  goal  was  to  be  as 
flexible  as  possible  as  far  as  the  generation  of  various  types  of  speech 
displays  is  concerned. 

In  describing  the  details  of  the  Speech  Display  Simulator,  the 
philosophy  has  been  to  describe  why  each  program  was  written  the  way  it  was 
as  well  as  what  it  is  actually  trying  to  accomplish.   In  addition,  any  test 
programs  which  may  have  been  written  for  a  particular  program  are  also 
explained. 

The  Speech  Display  Simulation  can  be  divided  into  five  main 
areas:   the  common  data  base,  the  command  processor,  the  data  handling 
routines,  the  speech  display  routines,   and  the  various  subprocessing  routines, 

The  common  data  base  consists  of  the  input  speech  data  buffer, 
BUFF,  the  output  display  data  buffer,  FINT,  the  CRT  display  command  buffers, 
ISCOPE  and  ISC0P1,  and  all  of  the  constants  and  variables  used  to  control 
these  buffers.   These  buffers  and  variables  are  all  kept  in  COMMON  storage. 
The  problem  of  keeping  the  COMMON  declaration  in  each  subroutine  identical 
is  handled  by  means  of  the  CSL  FORTRAN  title  feature.   This  extension  of 
the  FORTRAN  language  allows  the  programmer  to  specify  FORTRAN  statements 
which  will  then  appear  in  every  program  in  which  the  statement  TITLE* 
appears.   Any  type  of  valid  FORTRAN  statement  can  be  put  in  the  title  and 
thus  the  whole  common  data  base  need  only  be  written  down  once. 


The  command  processor  is  used  to  accept  fixed  format  commands 
from  the  operator  at  the  typewriter  or  from  the  paper  tape  reader.  After 
determining  the  command  it  performs  the  indicated  operations  by  setting 
up  parameters  and  calling  the  various  subroutines  indicated.   The  operator 
has  the  ability,  via  the  command  processor,  to  change  the  values  of  the 
system  constants  and  variables  and  to  call  the  various  display  routines. 
In  addition,  he  can  dump  out  the  contents  of  the  various  arrays  and 
variables. 

The  data  handling  routines  are  used  to  obtain  external  data 
from  the  A  to  D  convertor,  edit  this  data,  copy  it  on  to  data  tapes  and 
then  manipulate  this  data  for  use  by  other  routines.   The  data  gathering 
and  editing  is  done  off-line.  This  eliminates  the  possibility  of  a  real 
time  simulation,  but  the  slowness  of  the  CDC  l6oU  compared  to  the  amount 
of  processing  to  be  done  had  already  effectively  prohibited  this. 

The  speech  display  routines  consist  of  the  programs  used  to 
simulate  the  various  speech  displays.  These  programs  manipulate  the 
common  data  base  using  the  various  subprocessing  routines  to  produce  the 
displays  desired. 

The  subprocessing  routines  consist  of  the  programs  which  are 
used  to  perform  various  operations  on  ana.  transformations  of  data.   Each 
routine  performs  a  single  type  of  operation  and  might  be  used  in  the 
construction  of  several  different  displays. 

As  the  Speech  Display  Simulation  System  developed,  certain  key 
principles  were  developed  as  follows: 

l)  The  common  data  base,  command  processor  and  speech  display 
routines  should  be  basically  machine  independent.  This  means  that  they 
should  be  written  in  standard  FORTRAN  as  much  as  possible  and  any  use  of 


CSL  FORTRAN  extensions  should  be  fully  documented  by  means  of  comment 
statement  in  the  code  itself. 

2)  The  subprocessing  routines  may  be  written  in  machine 
language  or  in  a  combination  of  FORTRAN  and  machine  language  as  is  allowed 

in  the  CSL  FORTRAN  system.   However,  this  should  only  be  done  if  a  significant 

speedup  in  time  or  savings  in  space  results  or  if  it  is  necessary  to  perform 

some  special  function,  such  as  communicating  with  the  CRT  display  unit. 

In  either  case  all  occurrences  of  machine  code  should  be  explained 

both  in  the  overall  sense  and  at  the  detailed  instruction  level  by  comments 

within  the  program. 

3)  The  subprocessing  routines  should  not  use  the  COMMON  area 
buffers  or  transmit  parameters  through  COMMON.   Any  external  data  needed 
should  in  general  be  obtained  by  means  of  parameters.   This  makes  the 
routines  easier  to  understand  and  reduces  the  number  of  mysterious  side 
effects.   The  few  exceptions  allowed  to  this  rule  involve  short  subroutines 
which  are  used  very  often  and  which  have  several  parameters.   In  such  cases 
the  overhead  involved  in  handling  explicit  parameters  becomes  excessive. 

k)   Test  programs  used  to  check  out  the  various  subprocessing 
routines  are  not  normally  to  be  loaded  with  the  rest  of  the  system.   They 
are  kept  on  the  library  tape,  however,  so  that  when  needed,  they  may  be 
easily  loaded  by  making  a  call  request  to  the  CSL  Operating  System. 
These  programs  should  be  well  commented  with  exact  instructions  on  their 
use  since  it  is  easy  to  forget  their  operation  within  a  matter  of  weeks 
if  they  are  not  used  regularly. 

In  actual  use  the  speech  display  simulation  system  operates 
under  typewriter  control.   The  operator  can  manipulate  the  data  tape  to 
locate  the  speech  to  be  processed.   Then  he  can  select  various  processing 


and  display  subroutines  to  operate  on  this  data.   In  the  case  of  a  long 
production  operation,  such  as  the  generation  of  a  series  of  photographs 
of  the  displays  of  various  speech  words ,  a  paper  tape  can  he  produced 
containing  the  various  commands  which  need  to  he  given.   Then  by  placing 
the  system  in  the  paper  tape  input  mode,  the  operator  can  avoid  the  need 
for  a  long  period  of  continual  interaction  with  the  system.   This  also 
allows  the  operations  to  be  reproducible  at  later  times. 

The  remaining  sections  of  this  report  are  devoted  to  describing 
the  system  itself  in  terms  of  its  data  structure  and  individual  sub- 
routines.  The  subroutines  have  been  broken  down  into  groups  of  related 
programs  so  as  to  facilitate  their  explanation.   Following  each  description 
is  a  fully  commented  source  code  listing  giving,  in  addition  to  a  short 
description  of  the  program,  a  variable  list  complete  with  definitions. 


Section  2 
THE  COMMON  DATA  BASE 

The  Common  Data  Base  is  the  collection  of  arrays  and  variables 
used  to  contain  the  data  being  processed  by  the  Speech  Display  System 
as  veil  as  the  status  of  the  system  itself.   Its  structure  is  determined  by 
the  COMMON  statements  found  in  the  title  block,  which  is  included  in 
every  CSL  FORTRAN  program  containing  the  statement: 

TITLE  * 
at  the  beginning  of  its  source  listing.   This  title  feature  causes  the 
title  block  to  be  compiled  along  with  the  rest  of  the  source  code  for 
these  programs. 

In  order  to  provide  some  semblance  of  order  in  the  COMMON  area, 
the  complete  data  area  has  been  established  by  declaring  the  COMMON  array, 
A.   All  other  data  arrays  are  then  established  using  EQUIVALENCE  state- 
ments to  various  subparts  of  this  main  array.   This  allows  the  relative 
position  of  each  array  with  respect  to  the  others  to  be  explicitly  stated 
in  the  EQUIVALENCE  statement.   It  also  allows  other  COMMON  arrays  to  be 
declared  for  particular  subroutines  only,  by  EQUIVALENCE ' ing  them  to  A 
within  the  particular  subroutines  needing  them.   This  latter  technique  should 
only  be  used  for  scratch  areas  since  otherwise  the  side  effects  may 
become  very  complicated. 

The  common  data  base  has  several  key  features.   Since  digital 
tape  was  used  for  storing  the  input  speech  data,  it  was  unnecessary  to 
provide  a  full-sized  buffer  to  contain  a  complete  speech  utterance.   In- 
stead, the  floating  point  buffer,  BUFF,  is  used  to  contain  only  that 
portion  of  the  data  which  is  of  current  interest. 


As  can  be  seen  in  figure  2.1,  there  are  two  corresponding 
pointers  for  the  data  tape  and  the  buffer,  BUFF.   ISAMP  is  the  main  data 
pointer  and  selects  the  initial  sample  of  a  set  of  data  points  from  the 
complete  set  of  data  (consisting  of  many  speech  utterances)  on  the  data 
tape.   Its  value  may  range  up  to  around  900,000  since  this  is  the 
approximate  number  of  packed  sample  points  which  can  be  written  on  a  single 
tape.   ISAMPB  corresponds  to  ISAMP  in  that  it  points  to  the  same  data  as 
ISAMP  but  it  refers  to  the  data  as  it  happens  to  be  currently  loaded  in 
BUFF.   Thus  ISAMPB  only  varies  from  0  to  the  maximum  length  of  BUFF 
(currently  3000  words). 

The  display  generating  routines  are  free  to  move  ISAMP  up  and 
down  the  data  tape  whenever  they  wish.   Before  they  utilize  this  new  data 
position,  however,  they  must  call  the  subroutine  ADJUS2.   This  subroutine 
checks  the  status  of  BUFF.  If  the  data  corresponding  to  the  nev  position  of 
ISAMP  is  not  currently  in  BUFF,  it  moves  the  tape  forward  or  backward  until 
it  can  load  BUFF  with  the  proper  data  and  converts  the  data  to  floating  point 
Once  BUFF  is  made  to  contain  the  desired  data,  ADJUS2  sets  ISAMPB  so  that 
it  can  be  used  as  an  index  for  BUFF  to  obtain  the  desired  data.   It  is  this 
pointer  that  the  speech  processing  programs  use  to  obtain  the  speech  data. 

The  second  feature  involves  the  FINT  array.   This  array  is 
basically  a  two-dimensional  array  containing  the  intensity  values  with  its 
dimensions  corresponding  to  frequency  vs.  time.   However,  it  was  felt 
that  it  would  be  much  more  convenient  to  be  able  to  vary  the  relative 
maximum  sizes  of  these  two  dimensions  even  while  the  total  length  of  the 
array  remains  fixed.   This  is  especially  nice  for  short  speech  samples  in 
which  it  is  desired  to  have  a  spectrographic  analysis  with  a  very  small 
increment  between  frequencies,  since  in  this  case  the  maximum  index  for 
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Figure  2.1:   Relationship  Between  ISAMP  and  ISAMPB 
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the  frequency  dimension  must  be  increased.   Unfortunately  FORTRAN  has  no 
provision  for  dynamically  assigning  array  dimensions.   Therefore  it  was 
decided  to  require  each  program  using  FINT  to  calculate  its  own  subscripts 
using  a  frequency  maximum  index,  IFMAX,  which  could  be  dynamically  chosen 
by  the  operator.  At  first  this  seemed  like  a  lot  of  extra  work  but  the 
technique  is  relatively  straightforward  and  in  many  cases  it  resulted  in 
a  considerable  increase  in  speed  due  to  the  lamentably  inefficient  cal- 
culations used  by  CSL  FORTRAN  to  calculate  subscripts.   This  was  especially 
true  in  loops  since  the  compiler  makes  no  optimizing  attempts. 
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FORTRAN  or  SEFT  1?66,   CATE   9/9/71 
TITLE  COM 

THIS  BLCCK  OF  CODE  IS  A  SPECIAL  FEATlRE  CF  C&L  FORTRAN.   11 
IS  A  TITLE  ELCCK  WUCH  IS  AUTOMATICALLY  CCMPILEU  INTO  EVERY  uTHfcR 
SUBSEQUENT  PFCGRAM  AND  SUBROUllNE  IN  WHICH  FhE  STATEMfcNT, 

TITLE* 
APPEARS.   IT  ALLOW?  THE  PROGRAMMED  TO  SPECIFY  THE  STRUCTURE  Of  A 
DATA  BASt  CO^ON  TC  MANY  PROGRAMS  BY  CNLY  TYPING  IT  OUT  ONCt.    I  H i 5 
ELIMINATES  f  *  N  Y  ERRCRS  DUE  TO  MISMTChED  COMyCN  SIATEMEMS  IN  SUB- 
ROUTINES. 

COMMON  A ( 200  C  3  ) 

DECLARE  ALL  SYSTEM  VARIABLES  WHICH  CAN  Ft  CHANGED  BY 
SIMPLE  INTEGER  ASSIGNMENT  STATEMENTS  CN  OCMMANC  OH   I  Hb 
OPERATOR. 

COMMON  ILEL,   ICEL7,  ICELX.  IDELY,  IENDB.  IFMX,  IFHEU, 
1  ITIME.  ITLIN,  ITMAX.  IXMAR,  LGNSM,  LOCCP.  NSMT2 

DECLARE  ALL  SYSTEM  VARIABLES  WHICH  CAN  Ft  CHANGED  BY 
SIMPLE  FLOATING  POINT  ASSIGNMtNT  STATEMENTS  CN  COMMAND  OF 
THE  OPERATOR. 

COMMON  EfFFC.  F I MTf  ,  OVF AC 

DECLARE  ALL  REMIMNG  SYSTEM  VARIABLES. 

COMMON  ICELK,   IFQPS,   ISAMP,   iSAMPfc*   ILMlT.   iuID,  NSAMI 

DECLARE  ALL  SYSTEM  CONSTANTS.  THESE  VALUES  WILL  NO  T 
CHANGE  F  LR  ANY  PARTICULAR  VERSION  OF  THE  SYSTfcM. 


COMMON  DbLF, 
SANF 


DTIMF,  ISAMF,  LBLK,   LBLK4,  LGfvBF,  NBLK, 


DECLARE  ALL  CCMON  VARIABLES  USED  FOR  CCMMUN 1 C  A  r  1  CN 
BETWFEN  SLBRCLTINE?  IN  THE  SYSTEM. 

COMMON  FIN,  ICDC.  IFTR,  IX.  OVFL,  PERIOD.  P  T  |_  S  T 

DIMENSION  bLF  F  (  3000  )  .  I  SCOPE  ( t>0  0  0  )  ,     I  SCOPl ( 20 0 0 ) . 

FIM  (100.150 ) ,  X(5l2),  Y(Sl2) 
EQUIVALENCE  CBUFF(j),  A(l)),  (ISClPE(l),  A(l))# 
<ISCOP1(1).A(3002)),  (X(l),A(3002))» 
<Y(1),A(4002)),  (F  INT(1),A(5003)) 
END 
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Section  3 
COMMAND  PROCESSOR  AND  AUXILIARY  ROUTINES 

The  Command  Processor  and  its  auxiliary  routines  constitute  the 
main  control  mechanism  of  the  Speech  Display  System.   In  order  to  take 
advantage  of  the  presence  of  a  dedicated  computer,  it  was  felt  that  a 
reasonably  flexible  interactive  system  must  be  developed.   To  achieve 
this,  the  command  processor  has  been  completely  modularized  into  various 
subcomponents  which  perform  the  necessary  command  manipulations.   The 
main  program  essentially  consists  of  a  series  of  calls  to  various  sub- 
routines which  accept  and/or  process  the  commands  sent  in  by  the  operator. 

With  the  progress  of  time,  the  system  became  too  big  to  fit  into 
the  core  of  the  l60k   and  thus  it  was  split  in  two,  with  all  the  data 
gathering  and  preliminary  processing  routines  going  into  one  version 
and  all  of  the  speech  processing  and  display  generating  routines  going 
into  the  other  version.   Both  versions  contain  the  common  diagnostic 
and  utility  programs. 

The  main  program  in  the  system  is  either  TESTP  (the  processing 
version  of  the  system)  or  TESTD  (the  data  gathering  version)  depending 
on  which  system  is  beirg  used.   These  programs  call  INPTCM,  which  reads 
in  commands  from  either  the  typewriter  or  the  paper  tape  reader,  VARSET, 
PROSCL,  DATGCL,  TAPCOM,  and  DIAGNG  which  detect   and  execute  the 
various  commands,  INITI  which  is  used  to  load  initial  values  into  all  the 
various  system  constants  and  variables,  FINI  which  calculates  the  dependent 
variables  and  prints  out  the  values  of  the  system  constants  and  variables 
on  the  printer,  and  DISSY  which  is  used  to  produce  a  display  of  the  speech 
data. 


11 


The  command  detection  and  execution  has  been  spread  over 
several  subroutines  in  order  to  simplify  their  programming  and  to  add 
flexibility  to  the  system.   Each  of  these  subroutines  operates  in  a 
similar  manner.   There  is  a  character  array  containing  a  list  of  the 
commands  which  are  processed  by  the  subroutine  and  a  DO  loop  which 
compares  the  input  command  to  each  of  these  names.   If  a  match  is  found, 
control  is  transferred,  by  means  of  an  indexed  GO  TO  statement  to  the 
appropriate  code  to  carry  out  the  command. 

The  principle  of  modularity  allows  the  command  structure 
to  be  expanded  easily  since  new  subroutines  to  process  new  commands  can 
be  easily  added.   The  main  convention  which  must  be  followed  is  that  if 
a  command  processing  subroutine  completes  the  processing  of  a  command,  it 
must  set  the  command  name  to  zero  so  that  the  calling  program  will  know 
that  the  command  was  recognized  and  executed.   Note  that  it  would  be 
possible  to  return  other  values  as  well  which  would  perhaps  signify 
alternative  messages. 

In  addition  to  being  used  to  run  various  display  programs,  the 
command  processor  can  be  used  to  change  system  variables.   This  allows  the 
operator  to  easily  modify  the  various  displays.   It  also  causes  a  certain 
number  of  problems  due  to  the  manner  in  which  some  of  the  system  variables 
and  constants  interact.   An  example  of  this  problem  occurs  in  the  spectro- 
graph^ display,  where  the  number  of  samples  to  be  processed  per  time  slice 
fixes  the  interval  between  frequency  coefficients  and  vice  versa. 

The  solution  to  this  problem  was  to  allow  the  user  to  set 
certain  parameters  independently  and  then  have  the  system  calculate  the 
effect  of  these  choices  on  the  other  dependent  parameters  and  print  them 
out  (this  operation  is  performed  by  the  FINI  subroutine).   Thus  for 
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example,  the  operator  can  choose  the  desired  number  of  data  samples  he 
wants  processed  per  time  slice  in  the  spectrographic  display  and  the 
system  will  respond  by  indicating  the  frequency  increment  between  co- 
efficients and  the  total  frequency  range  which  will  be  displayed  given 
the  current  value  of  IFREQ. 

An  alphabetical  list  of  all  the  commands  executed  by  the 
system  is  given  in  Figure  3.1.   A  detailed  description  of  each  command 
is  given  in  the  section  describing  its  respective  detection  and  execution 
subroutine. 


Command   Subroutine  Which 
Executes  Command 
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Command  Operation 


BEGN 

TAPCOM 

BUFF 

DIAGNG 

C 

DIAGNG 

COPY 

DATGCL 

DISP 

DIAGNG 

F 

TAPCOM 

FINIS 

PROSCL  & 

DATGCL 

FIND 

TAPCOM 

FORME 

PROSCL 

FOWD 

TAPCOM 

HEADT 

TAPCOM 

HIEMP 

PROSCL 

INITI 

PROSCL  & 

DATGCL 

INTAP 

DIAGNG 

IWIDE 

TAPCOM 

LOCA 

TAPCOM 

MOVE 

TAPCOM 

NORMF 

PROSCL 

OBTAI 

DATGCL 

PHOTO 

PROSCL  & 

DATGCL 

PYRON 

PROSCL 

READF 

DIAGNG 

REWIN 

DIAGNG 

SAVEF 

DIAGNG 

SPDIS 

PROSCL 

SPECT 

PROSCL 

STAND 

PROSCL 

THRSP 

DATGCL 

WHATN 

PROSCL  & 

DATGCL 

ZEROC 

PROSCL 

Rewind  data  tape  &  initialize  system 

Print  out  buffer  contents 

Next  input  will  be  a  comment 

Copy  data  tape 

Display  buffer  contents  on  CRT 

Short  form  of  FOWD  =  1000 

Calculate  dependent  variables  &  turn  off  CRT 

Search  data  tape  for  specified  speech  words 

Call  FORMEX  display  routine 

Move  data  tape  forward  NVAL  samples 

Process  header  block 

Add  high  frequency  emphasis  to  display  data 

Initialize  system  variables 

Assign  input  command  medium 

Assign  window  size  for  data  tape  display 

Print  out  value  of  data  pointer 

Move  data  pointer  to  NVAL 

Normalize  display  data 

Use  A  to  D  convertor  to  obtain  speech  data 

Take  picture  of  last  display 

Call  PYRON  display  routine 

Read  out  display  data  stored  on  tape  unit  3 

Rewind  tape  unit  NVAL 

Write  display  data  on  to  tape  unit  3 

Display  the  display  data  array  on  the  CRT 

Call  SPECTO  display  routine 

Produce  a  standard  Spectrograph  display 

Call  THRSPIC  data  processing  routine 

Call  WHATNOW  subroutine 

Call  ZEROC  display  routine. 


Figure  3.1  Commands  Executed  by  Speech  System 
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3.1  TESTD  and  TESTP 

These  two  programs  are  alternate  forms  of  the  main  system 
program.   They  are  actually  almost  identical  with  the  exception  of  one 
subroutine  call  in  each  program.   TESTD  calls  DATGCL  while  TESTP  calls 
PROSCL.   These  two  subroutines  call  the  respective  sets  of  routines  used 
by  the  two  versions  of  the  system.   This  arrangement  allows  only  those 
subroutines  actually  needed  by  a  particular  system  version  to  be  loaded 
into  core  memory. 

The  general  operation  of  the  command  processor  centers  around  the 
typewriter,  specifically  the  commands  typed  on  the  typewriter  by  the  operator. 
Every  time  control  is  given  to  the  operator  (this  is  done  when  INPTCM  is 
called) ,  a  "+"  is  typed  out  and  then  the  subroutine  waits  for  a  reply.   Once 
this  is  received,  the  command  and  its  parameters  are  read  into  the  respective 
arguments  of  INPTCM  and  the  subroutine  returns. 

The  next  step  is  to  determine  which  command  has  been  received  and 
to  execute  it.   This  is  done  by  calling  the  various  command  processing  sub- 
routines in  turn.   When  the  last  subroutine  returns,  a  check  is  made  to  see 
if  the  command  was  recognized  by  any  of  the  subroutines.   If  so,  the  program 
which  recognized  the  command  will  have  executed  it,  so  control  will  be  returne 
to  INPTCM.   If  not,  a  check  is  made  for  the  system  return  command,  i.e.  ".", 
and  if  that  is  not  the  command,  a  message  is  typed  out  indicating  that  the  cor  a 
was  not  recognized  before  returning  control  to  INPTCM. 

There  is  one  additional  feature  of  the  main  program.   Occasionally 
when  using  paper  tape  as  the  input  medium,  the  paper  tape  command  stream 
may  become  mixed  up  in  such  a  way  that  it  is  not  clear  where  you  are  on  the 
paper  tape.   In  a  case  like  this,  sense  switch  1  can  be  set  and  the  system 
will  read  in  and  type  out  successive  lines  from  the  paper  tape  input. 
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The  operator  must  type  any  character  and  a  carriage  return  in  order  to 
have  another  line  read.   This  method  allows  him  to  adjust  the  paper  tape 
and  to  find  his  place  on  it.   Switch  1  can  then  be  reset  and  the  operation 
continued  by  typing  a  final  character  and  carriage  return. 

This  feature  is  implemented  by  checking  for  the  state  of  sense 
switch  1  before  calling  INPTCM.   If  it  is  on,  the  call  to  INPTCM  is 
skipped  and  instead  NVAR  is  set  to  1HC.   This  will  cause  the  repeated 
execution  of  the  comment  command,  until  sense  switch  1  is  turned  off. 
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CSL    FORTRAN    qF    sEPT    1*68,       TATE       8/12/71 
PROGRAM    TESTD 
C 

C 
C 

c 


THIS:  IS  THE  DATA  PROCESSING  VERSION  CF  TfcS  r  . 


Hfc  COMMAND  PPfCESSlNG  PROGRAM  PERFORMS  SEVERAL  ACTlUNb. 
F  I R  S r  *  I'  iN'ERACTc  WITH  THE  OPERATOR  TO  CEiFhMiNt  ANY  VAH1- 
AbLF  VALIES  H-ICH  NEED  TO  BE  MODIFIED.   IN  T h  I S  CASE  THE  OP- 
F-R  A  I  OR  IYFES  THE  NAME  CF  THE  VARIABLE  AND  ITS  NEW  VALUE  IN 
THF.  rORtoAT  Ftcoi^Er  Ry  INP1CM.   SECONDLY.  THF  COMMAND  PRuCEbsOH 
A!  LP'S  ThE  CFERAFCF  TO  CALL  SUBROUTINES  BY  TyFlNG  TmE  FIRST 
->  CHARACFERS  IN  THFIR  NAMES.   FINALLY,  IT  WIi.L  ALbO  EXECulE 
VARIOUS  LCMIMANCS  Tf  ThE  SYSTEM  USING  THE  FOkkAT, 
N  V  A  K  =   K  \<  A  i  ,  N  V  A  L  2  »  FNAME 

VARIABLE  LIST. 

M  V  A  L   =  FIXEC  PC  INT  VALUE  READ  IN  FROM  TYPEWRITTEN. 

NVAp   =  5  CFAKACTEF  HOLLERITH  VARIABLE  USED  IC  CJNTAIN  THb  u^MMiAND 
"EAC  IN  FRf  H  TYPEWRI TIER. 


Till'* 


00005 
0  0  o  n  s 


THlb  STATtNFNT  CALSES  NVAK  TC  BE  DbFINcC  AS  A  RbAL   *UMI- 
HER  uj  IS  HEClIRED  FY  !HE  CSL  FORTRAN  SYqTE*  hhbN  HANDLING 
TYPE  R  I  I  i  E  R  I  /  U  . 

I  Y  p  E  R  N  « l  H 

H  R  ]  N  1  1 

FORM^   (  i  6  H 1  E  E  G  T  N  N  F  W  RUN.  ) 

I  U  N  I  I  =  15 

REblN     CC|»MAi\IL     PROCESSING    LOOF  •        FIRqT     jFtC*     bENsfc     S  *  i  1  U  - 
1      TO     S^b     IF      Ihs     \jHyT      INPlT     LlNb     SHUy.C     bE     TkHATED     AS     A     Cuflht  x 


n  o  o  o  a 

0  0  010 
00012 


0  0  013 


0  O  0  2 1 

n  n  o  ?  3 

00030 
0  0  u  3  2 
0  0  0  3  6 
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1  b 


it> 


<*c 


IF      ( 
VAR 

r-r   t 


10      Rl 

CALI 


CALL 
CALL 
i  ALL 
UAL  I 
IF      ( 


•  t  M  S  t     S  n  I  T  C  I-    3  ) 
-    lrC 


16.     18 


IF      Ibt     NEXT     INFIJT     LINE     IS    GOING     TO     RE     A     UCvMAmC,     CAlL     1 \H     CM 
•AO     iT     INTl    THF    CQCPNTER. 

[i\iP"CM(NvAR,NvAL.NVAL2»PNAME#lUNlT3 

U  E  i  =  R  M  I  N  E     TME     COMMA  M  D     ANU     EXECUTE     It. 

VARSET(NvAh,  NVAL) 

1  '■  A  T  I.-  f  L  (  r*  V  A  F  .  N  \/  A  I    ,     %  V  A  L  2  »     F  N  A  M  E  ) 

-UF^CM(i^V4R,  N  V  A  i    ) 

|.l  I  A'cNG  (  l\  V  AF  ,  N  \t  A'    ,     NVALP-J 

VAR     -     \Y  .  )  1  0  0  »     300,     100 

IF  .-CMMAMJ  was  MOT  RECCGN12EC  TYPE  MESSAGE  ANU  KEPtAT 


IT 


00041 
00043 
00046 
0H046 
00047 
0  0  0  4  7 
■-F'URTRA^1 


rSL 

C 

G 
1UU 
101 


KiRTRAN    Qf     Sb^T    15  68,       FATE 
RECURS!     rCR    C  C  M  l*  a  N  r  . 


H/12//1 


3  0  U 


IF     (i»VAH)  101,    lb 

wRIT,:     riulFUT     TAPE    j5 
FORM-T     UgH     H-  AT     HAS 

GC     T'1    lt> 

COM  l  NUE 
E  N  D 


101 
102 

HAT 
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CSL 

C 

C 

c 
c 
c 
r. 
c 

G 
C 

c 
c 
u 
c 
c 
c 
u 
c 

c 
c 
c 
c 

c 


00005 
0  0  0  Q  •? 


01)006 
0  0  010 

oooi? 


o  n  o  1 3 


0  0021 
0D023 
OH  025 
0  0  0  2  7 
0  0  U  3  3 
0  U  0  3  6 


FORTRAN  Of" 
PROGRAM 


SEPT  1568, 
TESTP 


TATE   8/12/71 


i  3 
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4  c 
/b 


:6vtHAL  ACTIONS 


THE  CO^ANC  PROCESSING  PROGRAM  PERFORMS 
FIR9T,  IT  INTERACT'  WITH  THE  OPERATOR  TO  CETFNMINt  ANY  VARI- 
ABLE VALLES  WHICH  NEED  TO  BE  MODIFIED.   IN  TF-IS  CASE  THE  UP" 

CF  THE  VARIABLE  AND  ITS  I^W  VALUE  IN 
]>\PTCM.   SECONDLY.  THF  COMMAND  PRUCEibOH 
CALL  SUBROHINES  RY  TvPInG  THE  FIRST 


EhAl Oh  1 >FES  THE  NA^E 
THE  I  ORMAT  REGUlREr  BY 
ALLOCS  Tt-  E  fFEHATCF  TO 
;>  CHARACTERS  H  THFIR 
VARIOUS  LCMMNUS  Tf  THE  SYSTEM  USING  THE  FOP^AT, 
NVAR  =   NVAI.  ,  N  V  A  L  2  '  FNAME 


NAMES.   FINALLY,  IT  Wn.L  ALbO  EXECUTE 


VARIABLE  LIST 


N  V  A  L 
NVAR 


Till. 


I-  IXEC  POINT  VALUE  READ  IN  FROM 
5  CHARACTER  HOLLERITH  VARIABLE 
neac  in  ^RCN  fYPEWRITTER. 


TYFEwFiT  1EK. 
USED  TC  CONTAIN 


THE  UUMMANU 


HIS  STATEMENT  CALSES  NVAR  TC  BE  DEFlNEr.  AS  A  REAL  NUM- 
BER AS  IS  R6CLIREC  Ev  Th^  CSL  FORTRAN  SYSTEM  *RBN  HANDLING 
"I  YFEwF  T  I  'EH  I/O- 

TYFF  R  NvAR 

ERIN   1 

F CFMAl   (16Hl  6EG  TN  NFW  RUN.  ) 

I  U  M  T  a  19 


i  r 


b-blN  CCyMANC  PROCESSING  LUOF.   FIRST  CFtCK  bENSfc  SWllLh 
SEE  IF  THE  NEvT  INPUT  LlNfc  SfC'ULC  HE  TRFATtD  AS  A  CuHHfe«l 


IF      (  -  E  M  S  t    SWITCH    l ) 
N'\/  A  tv    =    ]l-C 
GC    T  i    ?b 


16.  18 


IF  IFE  \fXT  INPUT  LINE  IS  GOING  TO  PE  A  COMMAND,  CALL  INF5 
"1(1  W^A)  17  IMC  THF  COMPUTER. 

(.A  1. 1   1  xikiCM(^AFi,NVAI..NVAL2,lrNAME,lUNlT) 

LPitRMlNE  THE  COMMAND  AND  EXECuTE  IT. 

CALL  V  A  N  S  E  T  <  N  V  A  R  ,  NVAL) 
CALL  PRGSCL(NVAR,  n  VAl.  ) 
t;  A  L  I  1  AP^CM(  N  V  AR  ,  N  V  AL  ) 
CALL  PIALnG<WAR,  N  V  A  L  ,   \VAL?> 

IF  (  \:V  AR  -  jF  .  )         76  »  30 1"  7' 

IF  (WAR  -  5  F  PITCH)    100,  176,  1CU 

IF  LCMMND  WA5  NOT  RECOGNIZEE  TYPE  KbSSAGfc  ANL  KEPtAl 
RECUrST  (-CR  rCMf^ANT  . 


i  LM 
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0  0  041 
00043 
00046 
00046 
0  U  0  4  7 
0u050 
0  0  0  S  4 
0  0  0  96 
0  0  063 
0  0  0  6  3 
0  0  0  6  7 
00070 
0  0  U  7  2 
0  0  U  7  3 
00  073 
■-FORTRA*1 


CSL  FORTRAN 
lull 


lul 
lUfc 

1/fe 


1  /  bki 


1  /6i 


3  U  u 


0^  SEM  l568i   FATE   8/12/71 
IF  (  im  V  A  H  )     101,  3  5.  101 
WRIT61  OUTFUT  TAPE  1 5 ,  102 
F  OFM^T  (lgH  WHAT  WAS  I  ^AT  .  ) 
GO  T  1  lb 
CALL  F I N  I 

DO  1/61*   1=1 '   IT  IMP 
CALL  AOJtS^SANT,  -1  ) 
PRINT  1  7  6  2  '  I 
FORMAT  (  /  /  2  X  '   14) 

CALL    PITLMEIFF(ISANPR),     N  S  A  M  T  ) 
ISAM"     =     I S  Af  P     +     IDFI.T 


COM 
CO  T 
COM 


i  MSJb 

'    lb 

T  Mjb 


EM 
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3.2   INPTCM  (VARNAM,  Nl,  N2 ,  Fl,  IUNIT) 

This  program  is  used  to  read  in  commands  for  the  command  processor 
from  the  unit  specified  by  IUNIT.  At  the  present  time,  the  only  units 
allowed  are  the  typewriter  (IUNIT  =  19)  and  the  paper  tape  reader 
(IUNIT  =  5*0.  Any  other  value  of  IUNIT  will  produce  an  error  comment 
on  the  typewriter  and  IUNIT  =  19  will  be  assumed. 

If  the  input  medium  is  the  typewriter,  the  subroutine  will  print 
out  a  •+'  on  the  typewriter  and  wait  for  a  reply  from  the  operator.   Other- 
wise it  will  simply  read  the  next  line  of  input.  The  main  purpose  for 
having  the  paper  tape  input  facility  is  to  allow  the  operator  to  produce 

pre-punched  input  tapes  which  he  can  then  use  to  perform  "sterotyped" 
operations  without  having  to  do  a  large  amount  of  typing. 

Once  a  command  is  read  in  by  the  read  statement ,  the  various 
parameters  are  automatically  loaded  with  their  respective  values  and  the 
subroutine  returns. 

As  the  subroutine  is  presently  written,  it  only  accepts  fixed 
format  commands.   However,  since  the  system  is  modular,  it  would  not 
cause  undue  perturbations  if  a  free  format  input  subroutine  were  used. 
Lack  of  time  has  been  the  main  reason  for  neglecting  this  improvement. 
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CSl  FORTRAN  OF  SEFT  1568,   TATE   6/28/71 

SUBROUTINE  I  NF TCM ( VAR K AM ,  K%,  N2,  Fl»  ILNlT) 
C 
C 
C 
C 
C 
C 
C 
C 
C 


1003 

1006 

1011 

1015 

1015 

1021 

C 
C 
C 

1021 

]  030 

]  030 

3037 

3037 

3040 

-ORTRaN 


15 
18 
19 
20 
21 


60 
61 

tb 


THIS  SLEROITIM  IS  USED  TO  READ  INPUT  CCMMANUS  FRCM  1 Ht  OPEhATOR 
AT  THE  TVREKFJTTER  (IF  IUNIT  =  19)  OR  FRnM  Tl-E  RAPE*  TAPE  RfcAUfcR 
(IF  IUNIT  =54).   CTHER  UNITS  MAY  BE  FEASIBLE  BUT  HAVE  NOT  bfcEN  TRIED 
THE  COMMAND,  ALONG  WITH  ITS  THREE  POSSIBlE  PaRAMEIEBS.  IS  READ  IN 
FIXED  FORMAT  AS  GIVEN  IN  FORMAT  STATEMENT  61.   THEN  IT  IS    PRINTED  CN 
THE  PRINTER  TO  KEEF  A  RECORD  OF  WHAT  IS  HAPPENING*  BEFCRE  Thfc  SUB- 
ROUTINE RETUPNS. 


PLUS  =  1>** 
IF  (  IUNIT  -  19) 
IF  (  IUNIT  -  54) 
WRITE  OUTFUT  TARE 
FORMAT  (2X»I6,22W 
WRITE  OUTPUT  TAFE 
FORMAT  (A*) 


15.  20.  15 

18.  60,  18 
19,  19.  IUNIT 
IS  NOT  VALID  UNIT 
19,  21.  PLUS 


NC.  ) 


WAIT  FOR  DATA  RETURN  FROM  OPERATOR  nR  TAPE  RfcAUEH 

READ  INPUT  TAPE  IUMT,  61,  VARNAM,  Nl,  N?,  Fi 

FORMAT  (  A5  ,  i X  ,  I  6  , 1  >  ,  T  6  *  1 X , A6) 

PRINT  65.  VARNAf,  Nl,  N2»  Fi 

FORMAT  <12H  .CCMKANC  IS  A5»2Ha  I  6 , lH, I  6 , 1H , A6  ) 

RETURN 
END 
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3.3  VARSET  (COM,  NVAL) 

This  subroutine  checks  for  and  executes  commands  involving  the 
setting  of  system  variables.   It  handles  integer  and  floating  point 
variables  separately.   In  the  case  of  integers  the  variable  is  set  equal 
to  NVAL.   In  the  case  of  floating  point  numbers,  the  value  of  NVAL  is 
converted  to  floating  point  and  divided  by  100.0  before  being  loaded  into 
the  selected  variable.   Thus  the  operator  must  multiply  all  floating 
point  numbers  by  100  when  setting  them  under  control  of  the  command  pro- 
cessor. 

The  method  used  to  set  the  system  variables  relys  on  a  technique 
of  EQUIVALENCE ' ing  an  array  to  the  same  memory  space  used  to  store  the 
COMMON  system  variables.   This  allows  the  variables  to  be  addressed  by 
means  of  an  indexed  array.   However,  care  must  be  taken  to  see  that  the 
order  of  the  variables  in  core  specified  by  the  COMMON  statement  corresponds 
to  the  order  of  the  names  in  the  character  arrays.   In  the  CSL  FORTRAN 
system,  COMMON  variables  are  assigned  core  space  in  the  reverse  order  in 
which  they  are  listed.   This  means  that  the  last  named  variable  should 
be  EQUIVALENCE'  ed  to  the  zeroth  position  of  the  corresponding  array 
and  that  the  character  arrays  should  list  the  variables  in  the  reverse 
order  of  the  COMMON  statements. 

The  integer  system  variables  which  can  be  set  by  VARSET  are 
the  following: 
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IDEL 


IDELT 


IDELX 


IDELY 


IENDB 


IFMAX 


IFREQ 
I  TIME 


Distance  between  points  "being  generated  for 
the  display  measured  in  coordinate  positions. 
Typical  values  =  k   to  8. 

Spacing  between  analyses  of  speech  data, 
measured  in  number  of  time  samples.   Typical 
values  =  100  to  1000. 

Number  of  display  points  to  be  interpolated 

between  each  x  data  value  (usually  time 

samples).   Typical  values  -  2  to  l6. 

Number  of  display  points  to  be  interpolated 

between  each  y  data  value  (usually  frequency 

slices).   Typical  values  =  2  to  16. 

Number  of  locations  to  be  used  in  the  input 

data  buffer  by  the  OBTAIN  subroutine.   Must 

be  a  multiple  of  1000.   Maximum  value  =  20,000. 

Maximum  number  of  entries  along  frequency 

dimension  of  FINT  array.   May  be  adjusted 

along  with  ITMAX  to  vary  the  relative  dimensions, 

Number  of  frequency  slices  in  FINT  array. 

Number  of  time  slices  in  FINT  array. 


2U 


ITLIM 


ITMAX 


IXMAR 


LGNSM 


LOCOP 


NSAMT 


Threshold  value  used  by  THRSPIC  for  determining 
whether  or  not  to  count  a  given  sample  when 
enumerating  the  number  of  significant  samples  in 
a  data  block.  Typical  value  =  10  to  50. 
Maximum  number  of  entries  along  time  dimension 
of  FINT  array.   May  be  adjusted  along  with 
IFMAX  to  vary  the  relative  dimensions  of  FINT. 
Position  of  left  edge  of  the  three  dimensional 
display  generated  by  SPDISP.   Measured  in 
number  of  time  slices  from  the  left  hand  edge  of 
the  display.   Typical  value  =  50. 
Log  to  the  base  2  of  NSAMT.   This  tells  the 
FFTB  subroutine  how  many  iterations  it  will 
have  to  perform.   It  must  be  set  by  the  operator 
if  he  changes  the  value  of  NSAMT  and  intends 
to  use  FFTB. 

Total  number  of  samples  which  have  been  written 
out  on  to  tape  unit  3  by  COPYT.   The  operator  can 
preset  this  value  in  those  cases  where  COPYT 
is  used  to  add  data  to  a  tape  already  containing 
valid  data. 

Number  of  time  samples  to  be  analyzed  per  time 
slice.  Whenever  NSAMT  is  set,  NSMT2  is  auto- 
matically set  to  NSAMT /2.   The  reverse  is  not 
true  however. 
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NSMT2   -     Number  of  output  coefficents  to  "be  calculated 
by  FFTB.   Must  be  a  power  of  two.   Usually 
equal  to  NSAMT/2  but  may  be  set  independently 
of  NSAMT  if  desired  by  first  setting  NSAMT 
(NSMT2  is  then  set  to  NSAMT/2)  and  then  setting 
NSMT2  to  whatever  is  desired. 

The  floating  point  variables  which  can  be  set  by  VARSET 
are  the  following: 


EMPFC 


FINTM 


OVFAC 


Factor  used  by  HTEMP  to  control  the  non-linear 
emphasis  of  the  high-frequency  display  components 
in  those  displays  utilizing  frequency  as  the 
vertical  dimension.   Typical  values  =  .15  to  .kQ. 
Minimum  intensity  value  which  will  be  displayed 
by  SPDISP.   Any  values  less  than  this  will  be 
set  to  the  background  intensity.   This  eliminates 
a  great  deal  of  superfluous  intensity  changing 
at  the  low  value  range.   Typical  value  =  20.0. 
Factor  used  by  the  NORMF  subroutine  when 
normalizing  the  display  data.   The  highest 
intensity  point  to  be  displayed  is  set  to  255*OVFAC 
and  the  other  values  are  linearly  normalized 
according  to  this  value. 
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FORTRAN  0^"  SEHl  1^68,   TATE   8/12//1 
SUPRCUUNE  VARSEKCOn,  NVAL) 


t.M 


THE 
ANC  f 

CHRF 

OR  I 

L  Of 
F  VAR 


I  VAR 


N  V  A  L 

T  I  T  L  • 

ulft 


1  Hlb  SlEROLTUE  CHECKS  FOR 
SETTING  CF  SYSTEM  VARIABLES 
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CONTAINING  THE  NaHES 

CAN  BE  SET . 
ICMMNC  TO  BE  EXECUTED. 
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RTRAN     Cf     Sfc-T     1*66,        TATE        8/12/71 

L'iO    4'1  »     1  =  0*    « 

if     (  r  (.  h    -    C  F  F  F  (  I  )  )  40.     60.     40 

f  DM  i  Mlt 

if-    (com    -   5  f  n  s  a  h'  r )  4 1 »    51,    4i 

IF     LCM     NATCHbr      A     VARIABLt     IN     ChRl     CR     CHfiH  .     CHANOit     THfc 
APPROPRIATE     VARlAdl  F  . 


50^ '    51  '    500 


I  V  A  R  :  I  )      =     N  '  V  *  L 

i  (•      (  r  om     -     5>N£  Al*T  3 

N  S  A  M  *     =     ^VAL 

fv  b  ^  T  ?     =     VSAM/? 

I-  C     T f  1    Sbu 

1     =     1*1 

V  A  L     -     FLLATF(\VAL)/inO.O 

GC     T''1     i  61*     62  j     63)     I 

nvFA1'     =     ^AL 

GO     T        SU^ 

t-   I  K  J  *     =      v  A  L 

GO     T-!     5  0  0 
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t'. G    T  i '    5  0  0 

AFieR     ctTTIMt     IMF     DESIGNATED    VARlAbiE,     ?tT     CUM     iU     u-u 
7r      jvl.  iC*TfeW  IhAT     TWF     CCMMA^D     WAS    bXECLTED     AMC     RETURN. 


CGI*     -    o  .  u 
i-  h  t  i  j^  r 


FN 
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3.k     PROSCL  (COM,  NVAL) 

This  subroutine  checks  for  and  executes  commands  which 
involve  calls  to  those  subroutines  which  are  loaded  with  the  processing 
version  of  the  system.   It  also  checks  for  commands  which  are  used 
exclusively  by  the  data  gathering  version  of  the  system  but  in  this 
case,  it  simply  types  a  message  reminding  the  operator  that  that  command 
does  not  exist  in  the  currently  loaded  system. 

The  execution  of  the  commands  is  relatively  straightforward 
and  simply  involves  a  CALL  statement.   In  some  cases,  however,  particularly 
in  the  case  where  the  subroutine  is  a  speech  processing  routine  working 
directly  on  the  speech  data,  it  was  found  desirable  to  first  call  FINI 
so  that  a  printout  of  the  status  of  the  system  variables  and  constants 
right  before  the  execution  of  the  subroutine  would  be  available. 

During  the  course  of  the  development  of  the  speech  system, 
certain  operations  came  to  be  performed  very  often.  Eventually  it  was 
decided  to  have  a  single  command  which  would  perform  a  whole  series 
of  conventional  commands.   STAND  is  an  example  of  this.   There  are 
actually  two  varients.   If  no  numeric  value  is  given  (in  which  case  the 
I/O  programs  set  NVAL  =  -0) ,  it  will  not  move  the  data  tape  while  if 
a  value  is  given,  it  will  move  to  the  position  specified,  look  for  a 
header  block  and  load  in  the  proper  value  for  ITIME  from  the  header. 
If  no  header  is  found,  an  error  comment  will  be  made. 

Once  the  tape  is  positioned,  if  required,  the  command  causes 
a  series  of  calls  to  be  made  which  result  in  a  spectrographic  display 
of  the  data.   The  last  action  is  to  set  COM  to  i+HLOCA.   This  will  cause 
the  LOCA  command  to  be  executed  thus  indicating  the  value  of  ISAMP, 
provided  that  the  subroutine  which  detects  and  executes  the  LOCA  command 
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comes  after  PROSCL  in  the  list  of  calls  in  TESTP. 

The  commands  which  are  executed  by  PROSCL  are  as  follows: 


FINIS 

call 

FINI 

FORME 

call 

FORMEX 

HIEMP 

call 

HIEMP 

INITI 

call 

INITI 

NORMF 

call 

NORMF 

PHOTO 

call 

PHOTO  (NVAL) 

PYRON 

call 

PYRON 

SPDIS 

call 

SPDISP 

SPECT 

call 

SPECTO 

TFFBT 

call 

TFFBT 

WHATN 

call 

WHATN OW 

ZEROC 

call 

ZEROC 
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KJRTHAN  o^  SEPT  1*68,   CATE   8/12//1 
SUPRCU'INE  frceclccoc,  NVAL) 

THIS  SLtRGlTlNE  CHECKS  FOR  COMMANDS  INVOLVING  CALLS  lU 
SUFR'UrlNES  H-ICH  ARE  LSED  BY  THE  SPEECH  FROCbSSlNG  VERSION 
Of  THE  STSTE^.   IT  PRINTS  A  MESSAGE  FCR  ANY  COMMAND  RbCUbST 
ING  a  SUtfiOLUNE  WPlCH  IS  NOT  LOACED. 


c  u 


HUFF 
C-HRl 


i. HP? 

C L  r 
lUFL^ 

1SAMH 

IT  1Mb 

IK  ID 

LbLK 
N  V  A  L 


-  ICMKN  ARRAY.   INPUT  DATA  BUFFER. 

-  CHARACTER  APRAY  CONTAINING  THE  NaKS  CF  THE  SPfcbCH  b  «b  I  bf 
bLBRCuTINEF  WHICH  ARE  LOALtD  IN  TPb  PROCESSING  VERSi  iN  U 

i  he  system  .  ... 

-  -HAFACfER  ARRAY  CONTAINING  THE  NAMES  CI-  THE  SPEECH  b  >  b  I  fcf 
SLBRCLTINE5  WHICH  ARE  NOT  LOADED  IN  THE  PHOCtSSlNG  VfcRSB 
CF  THE  SYSTEM. 

-  LCMMKC  TO  EE  FyECUTEU. 

-  ICMKN  VAPlAPlE.   SPACING  (IN  NO;  OF  llME  SAMHLbb)  Be  I  wEt 


ANAL>SES  OF  DATA 

-  ICMKN  VARIABLE. 
IrE  C ATA  TAPE. 

b-  LCMKN  VARIABLE. 
^lF  F  . 

-  tCMKN  variable. 

-  CC.MKN  V  ART  ABI  E  . 
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-  i.  C  M  M  N  VARIABLE. 


POSITION  OF  SAMFLt  FClNlER  KELaTIvP  10 
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NUMBER  CI"  TIME  FOSlTlONb  IN  CISPLA-. 
WIDTH  OF  DATA  OlSP|AY  WlNDUW  (IN  Ml  .  I 

NUMBER  CI"  ENTPIES  IN  cAUH  BLCCk  IN  Etui 


NTEGER  PARAMETER  FOR  COM. 


1  I  Tl>* 

Lnv|_  t,  j  o  f>  C  i-  P  1  (  1  ?  )  .  CMR2f?) 
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F  0  R  I*  a  1     ( i  o  h    FPOGRAN     MnT    L  O  A  D  b  U .  ) 
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I  ALi 
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0*Ll 
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CALL 
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FORTRAN  Oh     Sb^T  1^68 
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CALL  Iff'E 
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GO  TO  5 0  U 

CALL  WHAT N Ok 

GO  T"  500 

L  A  L  L  I  N  H  I 
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RETURN 
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3.5  DATGCL  (COM,  NVAL,  NVAL2 ,  FNAME) 

This  subroutine  checks  for  and  executes  commands  which 
involve  calls  to  those  subroutines  which  are  loaded  with  the  data 
gathering  version  of  the  system.   It  also  checks  for  commands  which 
are  used  exclusively  by  the  processing  version  of  the  system  but  in 
this  case,  it  simply  types  a  message  reminding  the  operator  that 
that  command  does  not  exist  in  the  currently  loaded  system. 

The  execution  of  the  subroutines  is  entirely  straightforward 
and  simply  involves  a  CALL  statement.   The  commands  which  are  executed 
by  DATGCL  are  as  follows: 


COPY 

- 

call 

COPY  (NVAL,  NVAL2,  FNAME) 

FINIS 

- 

call 

FINI 

INITI 

- 

call 

INITI 

OBTAI 
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call 
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call 
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IKE 
ICMN 
^h  AF. 
F  I  NS 
-ECC 


cRGlt In 
i>R  ICH  A 
I  EXECi 
N  G  V  E  R  S 
1\G  A  ? 

ACTER  A 
CLT  I'VE? 

FE  SYST 
ACTER  A 
CHINE* 
SYSTEM. 

A  N  C  T  C 
*  C  T  E  i?  i 
1   INTE^ 
l\  C  IMc 


b  CHECKS  FOR  COMMANDS  INvCLVINli  CALLS  10 
RF  ONLY  USED  BY  ONE  OF  THE  TwO  SYSTEM 
TES  ALL  CALLS  TO  SCBROCMnES  USED  dY  'HE 
IOIM  AND  PRINTS  OUT  A  MESSAGE  FUR  ANY  COM- 
LPRCUTINE  WHICH  IS  NOT  LOADED. 

RRAY  CONTAINING  THE  NAMES  OF  THE  SPEECH  brbibM 
WHIC«  ARE  NOT  LOADED  IN  THE  DATA  INPUT  vrRSlON 

FM. 

RPAY  CONTAINING  THE  NAMES  CF  THE  SPEECH  b-bltH 
WHICW  ARE  LOALbD  IN  THE  TATA  INPUT  VfcRSl.N  Ofl 


ee  Executed. 

ar! abl  e  parameter  for 

ep  parameter  fcr  com. 

C-tp  PARAMETER  FOR  COM 


CO'' 


SIUN  CMFi(e),  CHR2(6) 

f CH-l (C  )=bFFOFNF .  5MSPECT,  5HSPDIS, 
PFZEFCC,  5^HIEMP»  5HSTAND, 

'  r^~*  (  (j  )  S4HCPF  V  ,  «>»-OBTAl,  ^hlHRSP. 
51-  IN  I  T  I  .  &HF  IN  I  S  ) 


5HPVHCN, 
5HI c f Td ) 
5HPhCTU, 


5H;MUhMr  , 
5HHHATN, 


I  '1M1-  AHE  COM  Af  A  INST  THE 
LOMMAN'P  !C  CALL  A  «  L  P  -?  C  L."  T  I  N  E 
S  Y  S  T  •- t>  . 


NAMES  IN  CHpi  TT  S  fc  E  IF  IT  iS  A 
IN  Tt-E  PROCFSbjNG  VfchSlON  Qc  THh 


DO  2    ,     I 

IF   (   (  M 
CC.NT  N'Jb 


Chh]  (  I  )  ) 


20  -  50  .  ^0 


IF  1.  CM  i-IC  NCT  MATCH  A  NjAMfc  IN  CHRl 
f'HRj)  TO  SEE  IF  IT  IS  A  CCMMAND  TO  CALL  A 
IATa  fc  a  1  -  E  K  I  n  G  V  E  R  ?  I  I  N  Cf     IRE  SYSTfcM. 


CHFCK 
SURcCC 


I  1  auains I 
INE  IN  THfc 


0  n  0 1  ? 

0'HI1  * 

0  0 1)  ?  1 
n  0  0  ?.  2 


00023 
nno?6 
n  J03i 
00031 


PC  4  »  l  =  Q »  £ 

F   (TM  -  CHR2  {  I  )  ) 

f '  0  NT  '  M I  fc 

REru-T 


4  0.  6  U  ,  40 


II-  CCM  f"A[CHbr  A  NAVE  IN  CHRi,  PRINT  0"T  A  MtSSAfcE 
T  F-LI  'NG  rt-b  CFtRATrF  [T  IS  NOT  LOADbD. 

WRIT.  ou'FuT  TAFE  j  5 ,  51 

P  R  I  N'  T  51 

F  C  R  M  ^  1      (<rQH     FROG  cjAi,     ly  n  T     LOADED.) 

G  n   t      5  0  ij 

IF     CC^     f-ATCHbf     A     NAME     lN'CHR^,     TRANSFER     LCN'TKUL     IC 
ThF     tpPRCpRIATE    CAM.. 
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P^L  KPTPAh  n-   Sfc^T  15  68,    tATF   H/12//1 


nous? 

00034 


to 


00051 
00055 


0  0  0  5  6 


00057 
00061 

00064 
00066 


ll.  U 


1  X  U 


lii- 

1*1 

3  <<:• 


C  L  F  V  -ChTAl-7M«SP-PHCTU-WHATN-iMlTl-(-  [MS 
(•r.  7  '   (  10  0.   110,   1  ?  0  ,   130'   140,   15  0.   160)  1 

CALL  REQUESTED  SUbRCUT  IME. 


COPY  , 

CALL     MPV'MNVAL,     NVAL?,     FNjAME) 
(.0      T  p(jU 

C'HTAI,        I  in     FHF     CASF    OF     OblAIN,     T(-F    qLBRrlTiNfc    wiLL 
L(CP     INT  I  L     Tl-E     NACFIMF     IS     STOPPED     MAMALlY.         1  HfcRfc     IS 
iv  f i     RPlijKN  , 

C.  a  L  I      (H 1  A  1 1\ 

1  HMSR  . 

IF     (  \'  V  A I  *  )  I  ^  ,  1  P 1  ,     122 

N  V  A  l  ?     =     LCCCF/LBLH  -     1 

t   A  L  I       'I  H  K  .;  F  I  C  (  N  V  A  I    ,  n  V  A  L  ?J 
Ufi     T!      50  0 


0  0  0  6  7 
000  70 


l«Sb 


P  M  0  I  C  • 
CALL  PHG'C<NVAL) 

(j  n  t   -,  Li  o 


V  HA  I  N 


0  0  0  7 1. 
0  0  0  7  ? 


0  0U7^ 

000  74 


l«f  (j      CALL  i-  -IA  i  Mi^ 
'•'•C  [•''  5U0 

I  N  I  I  I  . 

1  -  U      L  A  L  L   I  V  1  i  1 
G  U  V   ->  (J  0 


C  F  I  ,\  [  £  . 

i; 

000  7S    16 1'     CALL  MM 
00  076  NO  T,!  50  O 

AFltF  CALLING  1HF  APPPUPRlATt  S  U  b  R  U 1 1  T  i  N  P  C  H  PP1NIIMU  IHh 
MfcSSft  PR*  SET  CO  7f  D  .  U  TO  I  N  b  1  C  A  T  b  THAI  THc  CCMMANU  HaS  tibtN 
I'AKP   CAKg  Qf     Af\H  TJ-EM  RETURN. 

5n  0  itc    -    .i.i. 

PF  TL"  -K 


( 
I. 

0  0  0  7  7 

0  010  0 
0  01  01 
'■•FORTRAN 


FM 
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3.6  OAPCOM  (COM,  NVAL) 

This  subroutine  checks  for  and  executes  commands  involving 
the  data  tape  position  and  the  data  display.  After  performing  the 
indicated  operations  it  readjusts  the  data  tape  and/or  generates  an 
updated  display  if  necessary.   The  commands  are  as  follows: 

BEGN   -    Set  up  the  system  to  begin  reading  a  data 
tape,  i.e.  rewind  tape  unit  h   and  load  up 
BUFF  from  it.   Also  set  all  constants  and 
variables  to  the  initial  values  determined 
by  INITI  and  print  them  out. 

F      -    Short  version  of  F0WD=001000. 

FIND   -    This  command  is  used  to  find  specific 

speech  words  on  a  data  tape  by  looking  at 
the  header  blocks  along  the  tape.   If  NVAL 
is  positive  and  non-zero,  the  system  will 
accept  the  next  NVAL  5-character  entries  as 
names  to  be  searched  for  and  will  save 
them  in  an  array.   If  NVAL  is  greater  than  16 
(the  number  of  entries  in  the  array)  an 
error  comment  will  be  given.   If  NVAL  is 
zero  or  negative,  the  system  will  search 
the  data  tape,  beginning  with  the  block 
in  which  ISAMP  is  currently  located,  for  a 
header  containing  the  name  of  any  word 
previously  saved  in  the  storage  array. 
Care  must  be  taken  since  if  no  match  is 
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FOWD 


HEADT 


IWIDE  - 


LOCA 


MOVE 


found,  the  system  will  eventually  run  off 
the  end  of  the  data  tape. 

Move  I SAMP  forward  NVAL  samples  and  recom- 
pute the  display  beginning  at  that  point. 

Causes  the  block  currently  being  pointed 
to  by  I SAMP  to  be  interpreted  as  a  header 
block.   ITIME  is  calculated  from  the  length 
of  the  data  word  as  indicated  by  the  header 
block  and  then  ISAMP  is  advanced  by  one 
block  length. 

Change  the  width  of  the  display  to  NVAL 
samples  and  recompute  the  display. 

Print  out  the  current  value  of  ISAMP  on 
the  printer  and  on  the  typewriter. 

Move  ISAMP  to  the  position  on  the  data 
tape  indicated  by  NVAL  and  recompute  the 
display. 
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hsl 

c 
c 
c 
c 
c 
c 
r; 
c 
c 
c 
c 

i: 
C 

c 
c; 

c 
c 

(J 
c 
c 
c 
u 
c 

r; 
c 
C 
C 

C 

c 
c: 
c 
c 
n 
c 
c 


FORTRAN  o»-  SEPT  1*68,   TATE   8/12/71 
SUBROUTINE  TAFCCM(COH,  NVAL) 

THIS:  SLEROLTlKb  CHECKS  FOR  AND  EXECUTES  COMMANDS  INVOLVING 
THE  DATA  CISFLAY  anC  DATA  TAPE  POSITION. 

CHAR   -  CHARACTER  ARRAY  CONTAINING  THE  NAMES  CF  THE  COMMANDS  wHJCH 

ARE  bXtCUTFC  BY  TAPCOM. 
ChR<;   -  CHARACTER  ARRAY  USED  TO  HCLD  THE  NAmpS  UF  THfc  WOHDS  oblNG 

LOOKED  FOR  IN  THE  EXECUTION  OF  A  FlNT  COMMAND. 
COh"    -  COMMAND  TO  6E  EXECUTED. 
F7^p   -  IEMFCRARY  FLT.  PT.  VARIABLE  USED  TO  CCMAIN  THE  NO.  uF 

bAMFLES  TO  EE  PLOTTED  BY  USSY. 
IBLF   -  1EMPCRAFY  PLFFER  USED  BY  bLOCKRD  TC  HCLD  DATA  bHEN  I  HE 

LATA  TAPE  IS  BEING  SEARCHED. 
ICEl  x  -  CCMKN  VARIABLE.   BLOCK  NC  .  OF  ThE  Ci.RRENl  BLOCK  wHILH  IS 

S  TORE  C  IN  THE  FIRST  BLOCK  OF  BUFF. 
I  D  E I. T  -  CCMKN  VARIABLE.   SPACING  (IN  NO.  OF  SAMPLES)  BETwEfciM 

ANALYSES  OF  DATA. 
ISAMP  -  CCMKN  VARIABLE.   POSITION  OF  SAmFLP  HCIN1ER  RELATIVt  10 

THE  C A TA  TaFF  . 
iSAMPB-  CCMKCN  VARIABLE.   POSITION  OF  SAmFLE  HCINIER  RELATIVE  10 

cLFF  . 
ISCOP'I-  CCMKN  ARRAY.   DISPLAY  BUFFER. 
IUM1  -  CCMKN  VARTARlE.   UNIT  TO  BE  LSED  AS  THE  COMMAND  INkuT 

L  E  V  I  C  E  . 
IWID   -  CCMKN  VARIABLE.   WIDTH  OF  DATA  DISPLAY  WINDOW  (IN  Nb.  OF 

iAMFLES ) . 
LBLK   -  CCMKN  VARIABLE.   NUMBER  CF  ENTRIES  IN  EACH  BLCC*  IN  bUFF,. 
fASK   -  CCCE  LSEH  TC  ICENTFY  A  HEADER  BLOCK. 
MbLK   -  CCMKN  VARIABLE.   NUMBER  CF  DATA  BLOCKS  IN  BUF  F  . 
f   0M    -  HJGI-ESI  INTFX  LSED  IN  CHRb  . 

nvai   -  integer  parameter  used  by  com. 

sym   -  l  cca  t  i  cn  ccntaining  symbolic  namf  of  1  he  data  associatfcb 

»it>  the  hfadfr  block  currently  being  looked  at. 
xfe    -  dlmm  variable  lsed  in  inftcm  and  dt?sy  calls. 

T  I  TLH  * 

DlMENSTOiN  CHAR(7),  CWRS(15>»  IBUF(250> 
FQLI VALENCE  (  I  B  L  F  <  j  ) ,  A ( 3  0  0  2  )  >  »  (SYM,  A  (  3  0  0  4  )  ) 
DATA  f^ASK  =  7"/77777777777777B) 

LATA  (CHAR((j)a4HBEGN,    lHF,       4HFOWL,    5H  I  u  1 C6  #  4HL0CA, 
1  4HM0VE,    5MHEADT*  41-FlNC) 

COMPARE  CCM  AGAINST  THE  NAMES  IN  CHaR  TC  SEE  IF  IT  IS  A 

command  involving  the  state  of  the  data  display  oh  the  posi- 
tion of  iHt  Lata  tape. 


>.u 


DO    20 »     1=0'     7 

IF     (CfM    -     CHAR(I)) 

CUNT  !  MJE 

R  E  T  U  h  N 


20  »     50  .     <^0 


F     CCM     f-ATCHEr     A     NAME     IN     CHAR,     TRANSFER     CCnTHQL     TO      I  HE 
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C  S  L    FORTRAN     r>     Sf-T     1  ^  e  e  ,        r  A  T  F       fl  /  1 2  /  /  1 
n  APFRnpRl AT&     ICCE. 


o 

|J013  5U 

r; 

11015 


1     s     ]     +    1 

B  r  G  i\     -        F 
f'C     TO     (     100,        110 


FOWC     -iWlDb-LOCA     -fOVE     -HFACl-MMJ 

i ? o ,      i3n»      l^o,      ibn,      lfco,      i/u)    l 


PvbLlTE  THE  AFPROPhlATE  UUMMAND 


*Eta  |M  4 
'ALL  1  M  I 
1CSLK  =  -NbL* 
ISAM-  =   NVAL 


1 


1<!U 


1  -S  1.1 


1«1 


15  U 


FILL     UF     SAKPLF     Ri.jFFFR     BY     CALLING     ADjlS?.        SINCE     iCdLK     =     -NbLK, 
ADjU^?     WlLL     KNOk     Tl-AT     ThF     TAPE     IS     RESTING     Al     BLOCK     NuMFJtK     ZtKt). 
ALSO.     SMCb     l$M*P     !S     SCMF     POSITIVE     NUMBER,      ipERt     WILL     ALwAYb     Bt     AN 
DVEp'LJW    CCMITION,     A\iC     ^  I  T  H    (Nth  LAG     =     ~i,     THt    Ebt-FtR    WILL    Hb    AJJUSIEU 
W 1  T  H     ISACF     IN     ThF     LEFTMOST     B  L  U  C  K  . 

L     AlULS2<  UIC,     -1  ) 

T^     510 
L    =    1U0  U 

M  F      =     I  S  A 1*  F     +    N  V  A  L 
T  ■■■     5  U  0 
II     =     IW  A  L 
T"    S0b 

T»=     0^  i  PUT     TAP-     19.      141,      ISAhP 
1  4  1  ,      I  S  A  M  F 
(/t-     I  S  A  M  F  s  I  (.  ) 

52  0 

;     N  V  A  L 

5  u  0 

-     (EUFF  {  I  s  A^PE*4  J  *i  BL.K>/1DELT 

=     ISAM-     +     L  h  |   k 
51  1 


CAL 
t-L 

N'VA 
ISA 
CO 
I  In  I 
[-(J 
wP  I 
HP  ! 
F  fj  R 
GU 
ISA 

i.O 

I  T  I 
J  SA 
GO 


tv  i 

M  [■  1 

TO 

M  p 
T  i 
Mc 

r.i 


F   f!\! 


1  /  U 


1  'I 
1  'J 
1  '\ 

1  U. 


\l  c 


I  F      (  r  V  A  L  J  17  3,     -|  7  3  ,     i7i 

(  HFCK     71     -iEF     ThAT    TME    NijMbER    UF     NaMPS     WILL    NUT 
t-  X  C  E  - 1      T-E     tUMS     CF      THE     CHRS     ARRAY     AND     TFE\'     HEAD     [HEM 
i  N  . 

!  F     ( N  •  V  A  L     -    It)  1713,     1713,     1711 

wRITF      '  l  U  T  F  U  T     TAPP     j 5  ,     1712 
FORMAT     (;4H    Nc.     OF    UDpCS    TOO    LARGE.) 
GC    Tf    5UU 
Ni  u  M    =     g  v  A  |_    -    1 
L<  O    \l'i  ,      [  s  0  1     N  0  I* 

f'ALI      INPfCMtCCM,     XF,     Xb,     Xb,     1UNID 
i  FRS'  1  )     =     CCN 
C  O  N  T  i  N  1 '  b 
GC    TO    5 2 'j 

^F/ihCH   lata   tafe   fcir   a   name  contained    in   c  h  r  6 . 


Uo 


00132 
00136 
00140 
00144 
00145 
00153 
0U157 
0016? 
00163 
0U164 


00166 
00173 
0U200 
00200 
00202 
00215 
00217 


CSl  FORTRAN  0^"  SEFT  1*68,   TATE   8/12/71 
173     ISAMP  =  (  ISAfP/LBLK)*LBLK 

CALL  ADJLS2<Ci  0> 
1>4     CALL  BlOLKRC(0»  0*  0) 

1CBLK  =  ICBLK  ♦  1 

IF  (IBUF(l)  -  MASK)    1761»  l75i  1761 
l7t>     UO  176,  1  =  0,  NUM 

IF  (ChRS(I)  "  SYM)      3  76*  1.77.  176 
176     CONTINUE 
1/61     ISAMP  =  ISANP  *  LBLK 

C  WHEN  A  NAME  ic  FOUND,  TYPE  MESSAGE,  EXEcLTt  A  HEACT  COMMANUJ 

C         AN.C  *ETU*N. 
17/     URITF  OUTPUT  TAFP  19.  178,  SYM,  ISAMP 

PRINT  i  7  6  ,  S  >  ¥  .  1S4KP 
17b     FORMAT  (/h  FCLNC  A6.12^  AT  ISAMP  i  16) 

(.ALL  A  JJLS2(  U  ID,  -1  ) 

ITIMU  =  (FLCATH  IBLF <2>>*LBLK)/1DELT 

ISAMP  =  i  S AMP  *  LBl  K 

GO  TO  500 


C 
U 
C, 

0Q221    5  U  U 
O 
C 
C 


00223 
00224 
00226 
0024? 
00243 
00244 
■-FOPTRam 


51U 


52  1. 


AOJLST  ElFPER  IF  NECESSARY. 

CALL  ADJLS2( U IC,  1 ) 

GPNtRATE  NEW  TISPLAY  AND  THEN  RETURN. 

FTNP  =  I* ID 

XB    =  0  •  0 

CALL  L(SSY(XE,BLFF(  ISAM P9),IWID,ISC0P1, 2000. FTMP, 1024., 0) 

CON  =  o.o 
RETURN 


ENI 


kl 


3.7  DIAGNG  (COM,  NVAL,  NVAL2) 

This  subroutine  checks  for  and  executes  commands  which  are 
used  for  diagnostic  or  utility  purposes,  i.e.,  those  commands  which 
can  be  used  to  look  at,  save,  or  read  back  various  types  of  data. 
The  execution  of  the  commands,  whose  descriptions  are  given  below, 
is  very  straightforward. 


BUFF 


DISP 


INTAP 


Causes  the  contents  of  array  A  between  the 
limits  NVAL  and  NVAL2  to  be  printed  out. 
Note  that  since  all  major  data  arrays  have 
been  defined  equivalent  to  some  portion  of  A, 
this  command  allows  the  operator  to  print  out 
any  data  array  provided  he  knows  its  location 
within  A. 

Causes  the  next  line  of  data  from  the  input 
device  to  be  treated  as  a  comment.  It  will 
be  printed  out  on  the  printer  and  typed  out 
on  the  typewriter. 

Causes  the  contents  of  array  A  between  the 
limits  NVAL  and  NVAL2  to  be  displayed  on 
the  CRT. 

Sets  the  input  medium.   If  NVAL  =  0,  the 
typewriter  is  selected.   Otherwise,  the  paper 
tape  reader  is  used.   Note  that  IUNIT  is  not 
loaded  directly  by  the  operator  which  could 
be  done  if  it  were  included  with  the  other 
operator-controlled  system  variables. 


U2 


READF 


REWIN 
SAVEF 


This  was  done  to  ensure  that  it  would  not 

be  inadvertently  set  to  some  value  other  than 

those  allowed  by  the  I/O  programs. 

Read  in  the  FINT  array  and  the  values  of 

IFREQ  and  ITIME  from  magnetic  tape  unit  #3. 

If  NVAL  is  specified  and  not  zero,  read  the 

tape  NVAL  times.   This  allows  the  operator 

to  space  past  save  areas  on  the  tape  without 

giving  successive  READF  commands. 

Rewind  magnetic  tape  unit  NVAL. 

Write  out  FINT  array  on  to  magnetic  tape 

unit  3.  Also  save  the  values  of  IFREQ  and 

ITIME  to  indicate  how  much  of  the  data  is 

valid. 


1+3 


rsi  h 

c 
u 
c 

r; 

c 
c 

r: 

C 
r: 
f 
t; 
c 
c; 

L 

C 
i: 

r; 
r 
r; 

C 

n 
c 


'.RTRAN  0<-   StrHT  1  S  fc  b  ,    r  A  T  Fr   8/12//1 
SUhhPU'lNt  CIaO\G(COm  NVAL,  NVAL2) 

THIS  SLtRCLTlNb  CHECKS  FOK  AI\D  EXECUTES  COMMANDS  UHICH  AHt 
I'SED  FfjR  C  I  AGn  GS  T  I  r  AMI:  IJTILITY  PIRPOSES,  IE.  THOSE  COMMANbb  WHICH 
CAN  KF  USED  1C  LOCK  AT,  SAVE,  Ok  READ  BACK  VARIOUb  TYPES  OH  pAIa. 

A       -  LCMM.N  ARRAY.   MAMb  FOK  SYSTEMS  CCMMTN  blURAGfc  ARRAY. 

CHAR   -  lfARACTER  ARRAY  CONTAINING  THE  NAMES  CF  THE  COMMANUb  WHICH 

ARE  E  X  E  C  U  T  F [  RY  D  I  A  G  N  G  . 
CON    -  LChMNC  TC  RF  EXECUTED. 

MM   -  CCMKN  ARRAY.   OUTPUT  INTENSITY  ARRAY. 
Mmp   -  TffMFiRARY  Flt.  pt.  VARIABLE  USED  TO  cCMAIN  THE  NUMbfcR  OF 

SAMPLES  TC  EE  PLOTTED  bY  CISSY. 
1FI"A>  -  CCMK'N  VAR1ARIE.   MAXIMUM  FREGUENCY  JNCEX  FOR  F  I  M" . 
IMF-.  -  LCMNLN  VARTAR'E.   NUMBER  CF  FREQUENCY  POSITIONS  IN  b:SHl_AY, 
iMAx   -  I^AXINlM  l.hNC-TM  pF  F  I  N  T  ARRAY. 

i  sen   1-   Cckkn   array,      li  splay   hufi-er  fcr  dissy, 

illM   -  CCMKN  ViRTARiF.  NUMBER  C F  TIME  POSIlIONS  IN  CISHLA>. 

llMA«  -  CCMKK  vARTARlfc.  MAXIMUM  TIME  l\|Cb<  FCK  MM. 

M  M  P   -  icMFCRARY  INTEGER  VARIABLE. 

ILM'  -  CCMKN  VARIARI.E.  UM  I  TO  BE  LSED  A^  THE  COMMAND  INhM 
LEVICE . 

MESS   -  'EMRCrary  PLF^ER  USED  TO  FOLD  INplT  COMMENT  MtSSAGh 

^-RICF  IC  I  T  S  HElivG  PRlNTEC  ANT  TvREp. 
NVAI    -  MRSrT  INTEGER  PARAMETER  FCK  COM. 
NVAL?  -  SECCNE  IMTFCPR  PARAME'ER  FOR  COM. 
>b      -  lLMMY  VARUELE  USED  IN  DISSY. 

T  I  T  L »-  • 

DIMENSION  CHAR  (6  )  i  N^c  (  -,  n  ) 

i  ATA  (CHAR(q )=4HRUFF ,   4PD1SP.   5HREALF,  gHSAVEF,  SjHNfcWlN, 
1  1 H  C  i       CjMINTAR) 

(.'  •  I M  H  A  K  E  CCf     A  P  A  INST  THE  NAMES  I  M  CHaR  rr  Sbb  IF  IT  lb  A 
UOMMAND  INVCLVING  T  I  A GN OS T 1 CS . 


?0 


Mi 
11  u 


DC  jsii,  l  =  o ,    t 

J  F  (  r  ( ,  m  -  L  E  A  R  (  M  ) 

CONT  I  K'  lb 


2  0.  5  0.  2 0 


IF  '-CM  NATLHEr  a  NAME  IN  CHAR.  TRANSFER  CCMKOL 
ARFR"PwiATE  CCDE. 

J  =  I  +  \ 

BuFF  -C1SP  -rfalf-savef-remn-  c  -imap 

f"c  T"  <  100,   110.   i?0,   13f).   140,   i5n.   itO)  1 

E^Hi-CRh'  THE  RFCUFSTED  DIAGNOSTICS. 

H  P  I  N  '  ^  o  i  (   (  A  (  I  )  ,   I  s  N  V  A  L  »  NVAL2) 
GO  T.   ^ (j  i) 

ITMp  r  N  v  A  L  2  -  NVA|   +  l 


HE 


kk 


00047 
00050 
00052 
00066 
00067 
00070 
00073 
00074 
0  010  0 


00112 
0011ft 
00123 


00125 
00126 
00133 
00140 
00152 
00153 
00155 


00156 
00170 
OOl7o 

00202 
00214 
00226 
00227 
00230 
00232 
0  0  2  33 


00234 
0  0  235 
00236 
00236 
00236 
-FORTH 


CSL    F 


120 

121 
122 

lei 
C 
C 
C 


C 
C 

lvJU 


1«U 

t: 
c 

c 
c 
c 

lbU 
151 


160 
161 
C 

c 

C 

c 

5uu 

601 
5U1 


ORTRAN  OF  SEPT  1 S 6 8 ,   TATE   fl/12/71 
FTNp  =  I T  KP 
XB    =0»0 

CALL  DISSY(XE,A(NVAL).ITMP,ISCQP 1,2000, FTKP. 1024. »U) 

GO  TT  500 

IMAX  =  IF  MX*  ITMX 

IF  (MVAL)     122'  J21.  122 

N  V  A  L  =  1 

L'O  1 2  3  »  -  « 1 1  NVAL 

READ  TAPE  3,  (F  I  NT (  I  )  .  1=0.  IMAX) 

RESTORE  THE  VALLES  CF  ITIME  AND  IFREQ. 

ITImF  =  f-  INT  (  IMAX) 
IFREH  =  MNT(IMAX-I) 

G  O  T  n  5  01) 


I  M  X  =  I  ►  M  X  *  I  T  N  A  X 
F  I  NT (  1HAX  )    ■  I  TINE 
FINT'IMAX-D  s  IFRFC 
WRITE  tah-E  2  »  (F  INT  (  I  )  , 
GO  TO  5  0  0 
RfctapvJD  NVAL 
GO  TO  500 

REAL  IN  A  COMMENT  FROM  THE  ClRRENT  INPUT  MEDIUM  AND  WRMfc 
IT  O'-l  ON  Th6  TYPEuRITTFR  AND  THE  PRINTER.   THEN  WAIT  FOR  Any 
TYFF  GF  INPLT  FROM  THE  TYPEWRITER  BEFORE  CONTINUING. 


I«0f     IMAX) 


WEAD     JNPIT    T'FE     IUMT.     151.     MESS 

F  CfiMAT     do  (  Ac  )  ) 

WRIT"-  OUTFUT  TAF6  \  5 ,  151,  MESS 

PRIN^  151,  ^ESS 

HEAD  INPIT  T^FE  i9,  151.  MESS 

GO  T i   5 U  0 

I O  M  i  =  19 

IF   MVAL) 

I  U  N  I  T  =  5  A 

GC  1^     50  0 


161  ,  5  0  0.  161 


0  .0 


AFTER  FERFCRMING  THE  REQUESTED  DIAGNOSTICS,  SET  CCM  fO 
rO  INC  I C  A  T6  THAT  THE  COMMAND  WAS  ExEdTEL"  AND  THtN  RbTUHN 


CON  -  Q . u 

h  E  T  U  «  N 

FORMAT  («X*lC(Fe.2.2X)) 

FORMAT  (2X,lC(Fg.2,2X)) 

END 


h5 


3.8  INITI 

This  subroutine  is  used  to  initialize  the  values  of  the 
system  constants  and  variables.   Its  structure  is  extremely  simple 
since  it  consists  almost  entirely  of  assignment  statements.   After 
the  values  have  been  assigned,  INITI  calls  FINI  to  calculate  the 
remaining  dependent  variables  and  to  print  the  values  of  the  variables 
out  on  the  printer. 
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FORTRAN  OF  SEPT  1«68, 
SUBROUTINE  IN  IT  I 


DATE   6/28/71 


THIS  SUBROUTINE  IS  USED  TO  l^TULl7ETHt  VALUES  ON 
VARIOUS  COMHCN  AREA  VARIABLES  "JBC  BY  THE  SYSTEM.   4FTEM 
HAS  BEEN  CONE,  THE  SUBROUTINE  PRINTS  OUT  A  MESSAOfc.  HHIWH 
INDICATES  THAT  ALL  VARIABLES  HAVE  THEIR  STANDARD  VAUUES 
THAT  ANY  VARIATIONS  DESIRED  MUST  BE  TYPED  IN. 


THb 
THIS 

AND 


EMPFC 
FIM 


FINTM 
IDEL 

IDELX 

IDELY 

IDELT 
IENDB 

IFMAX 

IFREO 
ISAMF 
ITIME 
ITLIM 

ITHAX 

IWID 
IXMAR 

LBLK 

LBLK4 

LGNBF 
LGNSM 

NBLK 

NSAMT 

OVFAC 


FACTCR  USED  BY  HIEMP  TO  CONTROL  THE  kON-L j NE AR  bMPHAS  1 S 
CF  Tl-E  HIGH  FREQUENCY  DISPLAY  COMPONENTS  IN  THCbE  DIS- 
PLAYS UTILIZING  FREQUENCY  AS  THE  VERTICAL  DIMENSION. 
SUBROUTINE.   CALCULATES  THE  DEPENDENT  PARAHfiTERS  BASED 
CN  THE  VALUES  JUST  GIVEN  TO  THE  I^EpENDlNT  PARAMETfcNS. 
TURNS  OFF  THB  CRT,  AND  PRINTS  OUT  THE  CURRENT  VALUES 
CF  THE  SYSTEM  VARIABLES  AND  CONSTANTS  ON  TH§  PRl NTERT 
MNVPUH  INTENSITY  VALUE  WHICH  WILL  BE  D I SPL A YED  BY  SPD I SP 
DISTANCE  BETWEEN  POINTS  BEING  GENERATED  FOR  DISPLAY 

NLm!eR3IOF,,CISPLAY  POINTS  INTERPOLATED  BETWEIN  EACH  HORI- 
ZONTAL DATA  POINT  IN  THE  ARRAY  To  BE  DISPLAYED  BY  SPDISP. 
NUMBER  CF  DISPLAY  POINTS  INTERPOLATED  BETWEEN  EACH  VERT  I  - 
CAL'tATA  PCINT  IN  THE  ARRAY  TO  BE  DISPLAYED  BY  SPDISP. 
SPACINGMN  NO.  OF  TIME  SAPPLES)  BETWEEN  ANALYSES  OF  DATA. 
NUMBER  CF  LOCATIONS  IN  INPUT  DATA  BUFFER  WHICH  WILL  BE 
L*ED  BY  THP  OBTAIN  SUBROUTINE. 
MXIiKUM  NUMBER  OF  ENTRIES  ALONG  THE  FREQUbNfiY  D*MfeNbION 

CF  F  INT. 

NLMEER  CF  FREQUENCY  POSITIONS  IN  DISPLAY. 

SAMPLING  FREQUENCY  OF  A  TC  D  CONvERTCR. 

NLMEER  CF  TIME  POSITIONS  IN  DISPLAY.         DCTCWMlK11NG 

L«:EC  BY  THPSPIC  AS  THE  THRESHOLD  VALtE  FOR  BETEKMINING 

WHETHER  OF  NOT  TO  COUNT  A  GIVEN  SAMPLE  WHEN  ENUMERATING 

THE  NUMBER  CF  SIGNIFICANT  SAMFLEs  IN  A  DATA  BLOCK. 

PAXI^UM  NUMBER  OF  ENTRIES  ALONG  THE  TIME  DIMENSION 

MDTH  OF  DATA  DISPLAY  WlNDOWdN  KJC  .  CF  SAMPLES)! 
LSEC  BY  SPDISP  TO  DETERMINE  THE  LEFT  HAND  MARGIN 
C ISFLAY  RELATIVE  TO  THE  X«0  LOCATION.   EXPRESSED 
CF  BCUIVALENT  TIME  SAMPLES. 
NUMBER  CF  ENTRIES  IN  EACH  BLOCK  IN  BlFF(MUST 

CF  4)1 

1/4  THE  LENGTH  OF  ONE  BLOCK  IN  BijFF .   THIS 

NUMBER  OF  ENTRIES  IN  A  PACKED  Bl  CCK  ON 
LENGTH  Cf  BLFF  (IN  NUMBER  OF  ENTRIES).  qhurou- 

LCG  TO  THE  BASE  2  OF  NSAMT.   THIS  TELLS  THE  FFT8  SUBROU- 
TINE HO*  MANY  ITERATIONS  IT  WILL  HAVE  TO  PEIFORM. 
NUMBER  CF  BLOCKS  IN  BUFF. 

NUMBER  CF  TIME  SAMPLES  TO  BE  ANALYSED  IN  bAQH  TtMfc  SLICfc, 
FACTCR  USED  BY  THE  NORMF  SUBROUTINE  WHEN  NOBMALlZING  THE 
DISPLAY  DATA.   THE  HIGHEST  INTENSITY  POINT  TO  6*  DIS- 
FLAYED  IS  «ET  TO  255*0VFAC  AND  THE  OTHER  POINTS  ARE  NOR- 
MALIZED LINEARLY  ACCORDING  TO  THTS  VALUE. 


UF 


OF 
IN 


THE 
NO. 


BE  MULTfPLE 


DETERMlNkS 
MAGNETIC  TAPE 


THE 


hi 


CSL 

FORTRAN  OF  9EFT  l'S68,   CATE   6/28/71 

TITLE* 

5 

ITL IM  a 

10 

10003 

I  W  ID   » 

900 

10004 

FINTM  » 

20, 0 

10005 

IDEL    a 

7 

10006 

idelx   a 

4 

0007 

IDELY  a 

6 

0010 

IDELT  ■ 

256 

0011 

IENDP  a 

2  000  C 

0012 

7 

IXHAR  a 

40 

0013 

IFREO  a 

9C 

0014 

IFMAX  a 

10C 

0015 

ITHAX  a 

15C 

0016 

ISAM*"  = 

2000  C 

0017 

ITIME  a 

146 

0020 

LBLK   = 

100C 

0021 

LBLK4  a 

LELK/4 

0023 

LGNSM  * 

7 

0025 

NBLK   a 

1 
u 

0026 

LGNBF  a 

LBLMNBLK 

0027 

NSAMT  = 

256 

0031 

NSMT?  a 

NSA^T/2 

0033 

OVFAC  a 

1  .7 

0035 

C 

C 

c 

EMPFC  a 

,15 

PRINT  OUT  ASSIGNED  VALUES. 

0036 

11) 

CALL  F  IN  I 

0037 

RETURN 

3040 

END 

rORTRAM 

kQ 


3.9  FINI 

This  subroutine  is  used  to  calculate  the  system's  dependent 
parameters  on  the  basis  of  the  current  values  of  the  independent 
parameters.   It  is  generally  called  when  the  system  is  initialized 
or  whenever  the  value  of  an  independent  parameter  is  changed. 

Once  the  dependent  values  have  been  calculated,  the  subroutine 
turns  off  the  CRT  display,  prints  out  the  values  of  the  pertinent 
variables,  and  returns. 


h9 


10004 
0010 
0011 
0014 
0016 
0020 


0022 
0024 


200 


250 


251 


CAT:   6/28/71 


THIS  SlEROlTlNE  IS  USED  TO  CALCULATE  DEPENDENT  VARUBLtS 
AFTER  THE  OPERATOR  hAS  FINISHED  ChOOSlNG  PARAMETERS!  1,1  IHfcN 
PRINTS  OLT  ALL  THE  VALUES. 


DELF 


CSL  FORTRAN  OF  SEPT  1568, 
SUBROUTINE  FIM 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


DTIME  a 

IOVLAPa 
ISAMF  = 

SAMF   = 

TOTFO  a 
TOTIM  = 

TITLE* 


CCMKN  VARIABLE.   DIFFERENCE  FREnLENCY  BElWIrEN  FREQUENCY 
SAMPLES  OF  THE  DATA  ARRAY  TO  BE  nISP|_AYED.   THIS  VARIABLE 
IS  ALSO  SIMPLY  THE  FUNDAMENTAL  FREQUENCY  F  OH  THE  TIME 
FERI'CD  REPRESENTED  BY  THE  LENGTH  CF  jHE  PRESENT  TIMfc  SLICE 
CCMKN.  VARIABLE,   LENGTH  CF  TlME(IN  SEC.)  BSTWEEN  DATA 
SAMFLES. 

CVERLAP  BETWEEN  SUCCESSIVE  TIME  SLlCFSdN  NO.  ^  SAMPLES), 
CCMKN  VARIABLE,   INTEGER  REPRESFN  T  AT  I  ON  OF  THE  SAMPLING 
FRECIENCY  CF  THE  A  TO  D  CCNVERTORUN  SAMPLES/SEC.). 
CCMKN  VARIABLE.   FLOATING  POINT  SAMPLING  FBEQuENCY  OF 
A  TC  D  CONVERTCR  (IN  SAMPLES/SEC . ) . 
TCTAL  FREQLENCY  SPREAD  OF  DISPLAY. 
TCTAL  TIME  SHOWN  ON  DISPLAY  (IN  SEC.). 


CALCULATE  THE  CEPENDENT  PARAMETERS  ON  TpE  BASIS  OF  THE  VALUES 
PREVIOUSLY  CHOSEN  FCR  THE  INDEPENDENT  PARAMETERS. 


SAMF 

DELF 

DTIME 

TOTFO 

TOT  IM 

TOTIM 

IOVLAP 


FLOATF( ISAKF ) 

SAMFZFLCATF(NSAHT) 

1.0/SAMF 

IFREC*DELF 

I  T  INE*  ICELT 

TCTIC/SAMF 

NSAK  -  IDFLT 


COMMANC  IS  FIMS.   PRINT  THE  VALUES  WHICH  HAVE  BtEN 
CHOSFN  AND  TF-E  EFFFCT  CF  THESE  CHOICES  ON  THE  DEPtNBENT 
VARIABLES , 


CAL 

PRI 


L  STOP 
NT  250 


PRINT  251 


FOR 
/8H 
/8H 
/8H 
/8F 
FOR 
/8F- 
/8H 
8F> 
RET 
END 


MAT 
IDELT 
IFREC 
ITIME 
ITLIN 

MAT 
NBLK 
DELF 
OVLAF 

URN 


SCCF 

.  FI 

IE 

IF 

LE 

CV 

(« 

=  16 

-It 

-It 

-It 

=  16 
«F6 
■16 


CBLK,  IDEL.  ICELT, 
FREQ,  ISAMF,  ISAMP, 
TMAX,  LGNBF,  ITLIM, 
ELM,  LGNSM.  NELK, 
ELF.  TOTIM,  TCTFQ, 
M  =F6.Q»8H  ICBLK  =U,8H 
ELX  =I6»8H  IDELY  slft.sF- 
,8F-  I5AMF  sl6»8H  ISAMP  =  l6,flF» 
,8H  IFMAX  sl6,8H  ITMAX  =I6,8E 
,8H  IxMAR  =I6»8H  EMPFC  =F6.p) 
(8h  LFLK  cl6»8H  LBLM  =  l6,flF< 
,8R  NSAMT  =16. 8H  NSMT2  =I6.8H 
.0.8H  TOTIM  =F6.3.8H 
,9F  SAMPLES..) 


NTM 

NDB 

MAX 

LK, 

FAC 

NlFINT 

;8F  IT 


IOELX,  IDELY. 
ISAMPB» I T I  ME* 
IXMAR,  EMPFC 
NSAMT,  NSMF2' 
IOVLAP 

ICEL   =I6» 

IENDB  =16. 

ISAMPB=I4. 

LGNBF  =16, 


LGNSM 
OvFAC 


TOTFO  sF6.fl» 


=  16. 
=  F6.1 


'AN 
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3.10  DISSY  (XBUF,  YBUF,  NUM,  ISCOPE,  ISCLGN,  XMAX,  YMAX,  IFl) 

This  is  the  general  data  displaying  subroutine.   It  obtains 
the  x  and  y  coordinates  of  the  points  to  be  displayed  from  successive 
entries  in  XBUF  and  YBUF  respectively.   If  IFl  =  0,  successive  integers 
are  used  as  the  x  coordinates  instead  of  the  contents  of  XBUF.   In 
either  case  a  continuous  line  is  drawn  through  all  the  points  being 
displayed. 

XMAX  and  YMAX  specify  the  maximum  values  allowed  for  the  points 
to  be  plotted.   The  CSL  display  routines  will  use  these  values  to 
determine  the  size  of  the  display  and  to  calculate  the  position  of  each 
point.  Any  coordinate  which  may  exceed  its  corresponding  maximum  will 
be  truncated  to  the  maximum  value. 

ISCOPE  is  the  buffer  to  be  used  by  the  CSL  display  routines  in 
constructing  the  display  commands.   ISCLGN  specifies  the  length  of  this 
buffer.   If  a  command  is  every  given  which  causes  the  display  routine  to 
completely  fill  the  buffer,  a  comment  will  be  typed  out  on  the  typewriter 
by  the  CSL  display  routines. 

If  IFl  =  0,  an  additional  option  can  be  used,  namely  the 
production  of  cursor  lines  vertically  across  the  display.   If  IFl  =  0, 
then  the  zeroth  entry  in  XBUF  will  be  checked  to  find  out  how  many 
cursors  are  to  be  plotted,  and  the  successive  entries  in  XBUF  will  be 
used  as  the  locations  of  these  cursors  along  the  X  axis.   Note  that 
if  no  cursors  are  to  be  drawn,  a  single  variable  (not  an  array) 
containing  the  value  "0.0"  may  be  used  for  XBUF. 
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5 

--1 

XX6 


FORTRAN  OF  SEFT  1568,   DATE   9/9/71 

SUBROUTINE  C  I  SS  Y  (  XBUF  .  YBUF  ,  NUM  ,  ISCOFE,  I  SCLGM  »  XMX  ,  YMAX,  IFl  > 

THIS  SUBROUTINE  DISPLAYS  THE  DATA  In  XBlF  AND  YBUF 
AS  TME  X  ANC  Y  COORDINATES,  RESPECTIVELY  ,  OF  A  SfcRIES  OF 
NUM  POINTS.   THfc  BlFFER.  ISCOPE,  IS  USED  TO  CONSTRUCT  THE 
DISPLAY  BUFFER.   PRCCESSING  BEGINS  WITH  THE  7EROTH  LOCATION 
IN  XBUF  A\D  YBUF. 
IBFRPT=  DISPLAY  BlFFER  POINTER  -  USED  By  DISPLAY  ROUMNES  AS  POINTS 

ARE  ADDED  TO  THE  DISPLAY. 
IFi    =  -1,  LSE  XRLF  AS  A  FLOATING  PCINT  NUMBER  ARRAY. 

=   0,  USE  SLCCESSIVE  INTEGERS  BEGINNING  WITH  1,  INSTEAD 
CF  XBLF.   XBUF  CONTAINS  A  LIST  CF  POblTIUN  MARKbRS 
(IN  F[T.  PT.)  TO  BE  DISPLAYED  ALONG  WITH  THE  DATA. 
X8LF(o)  CONTAINS  THE  NUMBER  CF  MRKEHS. 
=  +  1,  LSE  XPLF  AS  AN  INTEGER  NUMBFR  ARHAY. 
ISCLGNs  LENGTH  OF  DISPLAY  BUFFER, 

ISCOPEs  DISPLAY  BLFFER  TO  BE  USED  BY  DISPLAY  ROUUNES. 
NUM    =  NUMEER  OF  FOINTS  TO  BE  DISPLAYED. 
XBUF   =  X  CCCRDIN'ATE  BUFFER. 
XMAX   =  MAXIMUM  X  COORDINATE  VALlE. 
YBUF   =  Y  CCCRDINATE  BUFFER. 
YMAX   =  K AX  I HU^  Y  COORDINATE  VALUE. 

DIMENSION  XELF(l),  YBUF(i),  iSCOPfc(l) 

STOF  SOCPE  DlePLAY  WHILE  BUFFER  Is  BEING  LOADED. 

CALL  STOPSCCF 

IBFRPT  =  1 

DISPLAY  200  (  ISCOPF.  ISCLGN. IBFRPT)/XMAX.n.O, Y^AX.U.O 

DO  100.  1*0*  (NUM-i  ) 

IF  (  IFl  )     40»  50.  60 

FTMP  =  X6UF(  I  ) 

GO  TO  90 

FTMP  =  I 

GO  TO  90 


0 

0 

LLAR 
0 


LDA 
STA 
ORTRAN 

FTMP 


XE^F 
IlfF 


ITh-P 

90     DISPLAY/FTMF,  YBUF(I) 
100     CONTINUE 

IF  (IFl)     150,  110.  150 

>  IF  IFl  =  0,  PLCT  THE  VERTICAL  POSITlCN  MARKERS. 


110     DISPLAY  201/XMX,  0  •  0  •  YMAX,  0-0 

ITMP  =  XELF(0  ) 

PRINT    130.     I T  KP 
130  FORMAT     <2X,7>ITfP    r     I5) 

DO    140,     Isl»     I TKP 

DISPLAY/XEUF ( I ) ,     0.0.     XBUF(I),     YMAX 
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CSL  FORTRAN  OF  SEPT  1^68,   rATE   9/9/71 


00071 
00072 
00073 
00073 
00073 
00074 
-FORTRAN 


140     CONTINUE 
150     DISPLAY 

200  FORMAT(*XMXi    XHN, 

201  FORMAT  (*XMAX#  XMlN, 
250     RETURN 

END 


YMAx,  YMIN,  AXES,  CLINEMCDE) 
YMAX,  YMIN,  LlNEKODF) 
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Section  h 
INPUT  DATA  PROCESSING  ROUTINES 
The  Input  Data  Processing  package  consists  of  those  routines 
used  by  the  system  to  obtain  data  from  the  A  to  D  converter  and  to 
process  it  to  the  point  where  it  can  be  used  by  the  display  routines. 
The  process  used  is  somewhat  tedious  and  much  improvement  remains  to 
be  done  in  the  area  of  automatization  of  this  process. 

The  subroutine  OBTAIN  is  used  to  take  data  as  it  comes  in  on 
the  A  to  D  converter  and  to  store  it  on  tape.   WAITSIG  is  used  by  OBTAIN 
to  wait  until  the  A  to  D  converter  input  exceeds  a  certain  threshold, 
at  which  time  it  begins  recording  the  data.   THR  is  used  to  actually 
check  the  data  for  the  threshold  value. 

Since  OBTAIN  can  only  gather  a  maximum  of  k   seconds  of  speech 
before  its  buffer  fills,  the  data  collection  procedure  involves  playing 
the  analog  data  tape  for  short  segments  of  time.   In  between  time,  the 
data  is  written  on  to  a  digital  tape.   Once  several  tapes  have  been  filled, 
THRSPIC  is  used  to  determine  the  number  of  samples  in  each  block  which  are 
above  some  threshold  value  and  then  to  print  this  number  out  for  each 
block  on  the  tape.   On  the  basis  of  this  printout  and  a  record  of  what 
words  were  recorded  on  the  analog  tape  when  it  was  being  fed  into  the  A 
to  D  converter,  the  desired  digital  data  can  be  located  and  marked  off. 

Once  the  specific  words  have  been  located  on  the  data  tapes,  the 
COPYT  routine  can  be  used  to  extract  the  data  from  the  original  tape  and 
record  it  on  a  new  tape  complete  with  a  header  block  containing  the  word 
recorded  and  the  number  of  blocks  used.   The  editing  process  is  performed 
under  control  of  a  command  tape  which  is  read  by  the  command  processor. 
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The  COPY  commands,  which  cause  the  command  processor  to  call  COPYT, 
must  contain  the  block  numbers  of  the  beginning  and  end  of  the  segment 
to  be  saved  and  a  six  character  representation  of  the  data  word 
contained  in  that  segment. 
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k.l     OBTAIN 

This  program  obtains  data  from  the  A  to  D  converter  and  writes 
it  out  on  magnetic  tape  in  blocks  of  250  words,  each  word  containing 
four  12 -hit  samples.   The  data  is  loaded  into  data  buffer  A  before 
being  written  on  to  tape. 

The  program  uses  the  subroutine  WAITSIG  to  monitor  the  data 
coming  into  the  A  to  D  converter.   WAITSIG  uses  the  first  two  250  word 
blocks  in  A  to  alternately  store  and  test  the  data  coming  in.   When 
this  data  exceeds  a  certain  threshold  value,  indicated  by  the  common 
variable  ITLIM,  WAITSIG  returns,  thereby  signalling  to  OBTAIN  that 
it  should  begin  loading  the  data  buffer  beginning  at  the  third  250 
word  block. 

When  the  data  buffer  has  been  loaded,  OBTAIN  writes  the  data 
out  on  to  magnetic  tape  unit  h   in  blocks  of  250  words  each.   Due  to  the 
operation  of  WAITSIG,  the  first  two  blocks  may  be  in  reverse  temporal 
order  depending  on  which  block  was  being  loaded  when  it  detected  the 
point  above  threshold.   If  the  first  two  blocks  are  in  proper  temporal 
order,  WAITSIG  returns  with  its  flag  parameter  set  to  1.   Otherwise  the 
flag  is  set  to  0.   Then  OBTAIN  can  use  this  parameter  to  determine  the 
order  in  which  to  write  out  the  first  two  blocks  of  A. 

When  the  program  has  written  out  all  of  the  data  in  A,  it 
returns. 
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FORTRAN    QF     SE^T    1568, 
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rSL  FORTH '^  o»  Sbt-T  1*68,   rATE   8/12/71 

*  '*AIT  FOR  CHAMvEL  b     INACTIVE.  THEN  LOAC  CHANNEL  CONTROL  WORD  ANU 
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k.2     WAITSIG  (BUFF,  ITHRES,  IFLAG) 

The  purpose  of  this  subroutine  is  to  read  in  data  from  the 
A  to  D  converter  and  to  return  to  the  calling  sequence  as  soon  as 
it  detects  a  point  outside  of  a  certain  threshold  region  above  or 
below  the  "zero  level".   The  foremost  aim  of  this  subroutine  is  to 
read  all  the  data  coming  in  from  the  converter  for  any  sampling  rate 
equal  to  20KC  or  less. 

The  range  of  values  which  are  read  in  from  the  A  to  D  con- 
verter is  0  to  1023,  i.e.  10  bits.   The  value  512  is  supposed  to 
represent  the  zero  level  while  the  magnitude  of  the  extremes  (0  to  1023) 
is  determined  by  an  external  switch  on  the  converter  itself  (1.5  v., 
3  v. ,  6  v. ,  or  12  v. ) .   Unfortunately,  as  a  practical  matter,  the 
converter  is  usually  miscalibrated  to  some  other  zero  value  (when 
most  of  the  data  used  in  this  study  was  recorded  on  digital  tape  the 
average  value  was  around  U93 ) •   This  does  not  generally  cause  too 
much  trouble  as  long  as  the  error  is  not  too  great.   It  may,  however, 
tend  to  make  WAITSIG  too  conservative  on  small  threshold  values  since 
the  actual  zero  level  will  get  very  close  tc  one  of  the  threshold  regions 
if  it  is  too  far  from  the  assumed  zero  value  of  512. 

A  solution  to  this  problem  could  have  been  to  calculate 
the  average  value  and  to  give  this  value  to  the  subroutine  which  does 
the  actual  threshold  search,  especially  since  the  routine  has  the 
ability  to  change  its  "zero  level".   However,  this  would  have  taken 
more  time  than  was  available  if  every  sample  is  to  be  tested.   It  was 
also  unnecessary  since  the  problem  can  be  more  easily  solved  by  either 
extending  the  value  of  ITHRES  (in  which  case  you  effectively  only  test 
the  threshold  in  one  direction,  i.e.  on  the  positive  or  the  negative 
side  but  not  both)  or  recalibrating  the  converter. 
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The  WAITSIG  subroutine  uses  the  INTHR  and  THRES  entry  points 
in  the  THR  subroutine  to  do  the  actual  threshold  detecting.   INTHR  is 
called  with  the  Q  register  containing  the  zero  level,  512,  and  the  A 
register  containing  the  magnitude  of  the  threshold,  i.e.  ITHRS ,  in 
order  to  get  the  threshold  constants  initialized.   Then  as  each  block 
has  been  read  into  core,  WAITSIG  executes  a  loop  to  process  each  word 
in  the  block  using  the  THRES  entry.   Simultaneously  WAITSIG  loads  up  the 
other  block  with  the  next  batch  of  data  from  the  converter.   The  Q 
register  is  initially  set  to  zero  so  that  if  THRES  ever  returns  with  a 
non-zero  value  in  Q,  WAITSIG  knows  that  at  least  one  of  the  four  samples 
in  the  word  being  tested  exceeded  the  threshold  regions. 

If  no  sample  exceeding  the  threshold  is  detected,  WAITSIG 
waits  for  the  second  block  to  be  filled.   Then  it  activates  the  converter 
so  that  it  will  fill  the  block  which  was  just  checked  and  while  this  is 
being  done,  it  checks  the  block  which  was  just  filled. 

Eventually  THRES  will  return  with  the  Q  register  not  equal  to 
zero,  indicating  that  a  sample  exceeding  the  threshold  has  been  found. 
In  this  case  a  transfer  out  of  the  checking  loop  for  that  particular 
block  will  be  made.   The  transfer  is  such  that  IFL  (which  was  originally 
set  to  zero)  will  be  set  to  1  if  the  sample  detected  occurred  in  the 
first  block  and  remain  unchanged  if  it  occurred  in  the  second  block. 
Thus  IFL  will  indicate  the  temporal  order  of  the  blocks  (remembering 
that  while  WAITSIG  is  checking  one  block,  it  is  loading  the  other  block 
with  data  coming  after  it  in  time). 
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FORTRAN  QF"  9EFT  1?68,   CATE 
SUBROUTINE  W  A  I  T  S  I  G  (  Bl  FF  . 


6/28/71 
ITHRES.  IFLAG) 


ILLAR 
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FORTRAN  OF  SEPT  1*68,   TATE   6/28/71 

WAIT  FOR  CHANNEL  5  INACTIVE.   THIS  INSTRUCT  I  cN  WILL  LOQH  UN1IL 
Cl-ANNEL  5*  THE  CHANNEL  CONTAINING  THE  A  TO  C  CONVEMTOR,  IS 
INACTIVE  ANC  READ>  TO  ACCEPT  A  NEW  CCMMAND. 
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CSL    FORTRAN    OF    9EPT    1*68,       CATE       6/28/71 
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U.3  THR 

This  is  a  threshold  detecting  program  which  was  written 
in  ILLAR  assembly  language  in  order  to  make  it  as  fast  as  possible. 
When  called,  it  checks  the  word  in  the  A  register,  which  contains  four 
10-bit  samples,  to  see  if  any  of  them  are  outside  the  threshold 
region.   If  so,  it  increments  index  register  #2  by  1  for  each  such 
sample  and  sets  the  Q  register  to  1.   The  THRES  entry  point  uses 
index  register  #1  to  count  the  number  of  samples  which  have  been 
processed,  and  the  calling  sequence  should  be  sure  that  it  is 
set  to  zero  before  THRES  is  entered.   It  is  automatically  reset 
to  zero  before  returning. 

In  order  to  set  up  the  threshold  limits  it  is  necessary  to 
call  INTHR  with  the  average  value  of  the  data  stored  in  the  Q 
register  and  the  threshold  magnitude  stored  in  the  A  register.  INTHR 
will  then  calculate  the  threshold  region  as  the  average  +  the  threshold. 

The  routine  works  by  first  seeing  if  the  point  is  greater 
or  less  than  512  (this  is  done  by  looking  at  the  highest  order  bit). 

Then  it  compares  the  number  with  either  the  upper  or  lower 
threshold  boundary  depending  on  which  side  of  512  the  number  is  on. 
Note  that  this  implies  that  for  proper  operation  the  upper  and  lower 
boundaries  should  be  on  opposite  sides  of  the  512  level  boundary.   If  this  is  not 
true,  then  any  points  between  512  and  the  nearest  boundary  will  be  con- 
sidered within  the  threshold  region  and  will  be  ignored  (note  Figure  1+.3.1). 
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Figure  U . 3. 1  Interaction  between  average  and  threshold  values  in 
THR 
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IDES  OF  THE  VALUE  512. 

S  BETWEEN  512  AND  THE 

E  CONSIDERED  TO  BE  OVE 
ThIS  WiLu  UNLY  CAUSE 

PERCENTAGS  OF  POINf S  I 


UV 

ITH 

IAV 

46B 

ITHN 

IAV 

ITH 

46B 

ITHP 

INTHR 

IB 

IE 

IE 

IE 


PHN  =  LOW 


I.I  HP 


UPP 


EXAMI 

WPEN 

ABOVE 

A  1  A 

OVER 

REGIS 

PLACE 

NCNE 

WILL 

REGUI 

1  is 


THIS 
NES  E 
THE  S 
THRE 
ND  IN 
THE  T 
TER  k 
S  TO 
CF  TH 
RETUR 
IT  SH 
RES  T 
SET  T 


PART 
ACH  O 
UBROU 
SHCLD 
CRFME 
HRpSH 
ILL  C 
THE  R 
E  4  S 
N  u  1  T 
OULD 
HE  CA 
O  7ER 


OF  THE 
F  4  SA 
TINE  I 
,  7Hi 
NTS  IN 
OLD, 
ONTAIN 
IQHT, 
AMPL6S 
H  THi 
BE  NOT 
LL1NG 
O  BEftO 


TWRb 
MPLES 
S  UAL 
SUORO 
DEX  R 
WHEN 

THE 
AND  I 

IS  A 
O  KEG 
ED  TH 
RCUTI 
RE  TH 


SHOLD 

UONTA 
LED. 
Ul  INE 
EGISTE 
THE  SU 
ORIGIN 
NUEX  R 
BOVE  T 
ISTbR 
A  I  NOR 
Nb  TO 
E  FIRS 


SHIFT  THE 
OPDER  DATA  B I T 


A  REGISTER  LEFT  2 
WILL  Bb  IN  THE  SI 


ALS 
AJP 
SUB 


2B 

NEG 

ITHP 


It  THE  HIG 
ELSE  TEST 
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THR 


6/28/71 


00014* 

00015* 

00016* 
00017* 


00020* 
00021* 

00022* 


00023* 
00024* 


22 

05 
5« 
75 
75 
15 
22 


05 
54 
75 
?5 


04 
51 
05 
75 


00023* 

00014 

00003 

00013* 

00012* 

00007* 

00023* 


00014 
00003 
00013 
00012' 


00001 
00001 
00014 
00015* 


RETL 

MEG 

* 
* 


* 
* 

succ 


IF  THE  POINT  IS 
CONTINUE  BY  SHIFTING 
REGISTER  1  TC  SEE  IK 


AJP 
ALS 
ISK 
Slj 
SLJ 
SUB 
AJP 


SlCC 

14B 

3B 

TEST 

THRES 

ITHN 

SlCC 


IF  THE  POINT  IS 
CONTINUE  BY  SHIFTING 
Rt&ISTER  l  Tr  SEE  Iff 


ALS 
ISK 
SLJ 
SLJ 


14> 

3B 
TEST 

Tl-RES 


BELOW  THE  U 
LEtT  I'd  HOS 
4  SAMPLES  H 


ABOVE  IHE  L 
LEt"  T  I'd    HOS 

4  SAMPLES  H 


IF  THE  POINT  EXCEEDS  THE  1 H 
Q  REGISTER  WITH  1  A^D  INCREMENT 


ENQ 
INI 
ALS 
SLJ 
END 


IB 
IF 
14B 
RETL 
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k.k     THRSPIC  (II,  12) 

This  subroutine  will  scan  a  packed  data  tape  written  in 
blocked  format  from  block  II  through  block  12.   During  the  scanning 
process  it  counts  the  number  of  data  points  in  each  block  which  lie 
outside  the  range  of  the  average  value  +_  ITLIM  and  prints  out  the  result 
for  each  block.   If  the  block  is  a  header  (indicated  by  an  initial  word 
containing  all  l's)  the  subroutine  prints  out  a  header  comment  con- 
taining the  word  represented  by  the  data  and  the  number  of  blocks  used 
to  store  the  word. 

If  the  block  is  not  a  header,  the  THRSPIC  subroutine  unpacks 
the  packed  data  and  calculates  its  average  value  which  is  then  stored  as 
an  integer  in  ISUM.   Next,  using  this  value  and  the  threshold  value  ITLIM, 
it  calls  the  initializing  entry  point  for  the  threshold  detecting  sub- 
routine and  sets  up  the  necessary  threshold  parameters.   Then  it  enters 
the  threshold  calculating  loop  in  which  repeated  calls  are  made  to  THRES. 
Note  that  the  operation  of  THRES  is  such  that  for  each  point  above 
threshold,  index  register  2  is  incremented  by  1  and  furthermore,  that  in 
CSL  FORTRAN  index  register  2  is  equivalent  to  the  variable  J.   Thus  when 
the  whole  block  has  been  searched  the  subroutine  prints  out  the  contents 
of  "J"  and  repeats  the  loop. 
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FORTRAN  OF  SEPT  1568,   CATE   6/28/71 
SUBROUTINE  THpSPlCMl.  12) 


00003 
00006 
00012 
00023 
00024 


00026 
00034 


10 


THIS  SlEROlTlNE  SCANS 
BLOCKS  AND  POINTS  CLT,  FOR 
AND  MOW  MANt  DATA  FCINTS 
HOLD.   1F  T^E  BLOCK  IS  A 
OUT  THIS  FACT  AND  ALSO  TH 
OF  DATA  ELOCKS  LSEt  FOR 

THE  ROLTINE  BEGINS 
ANC  ENDS  WITH  BLOCK  12- 
SEFARATE  THE  DATA  PCI 
VALUE  FOR  THE  DATA. 
SUBROUTINE  Tt-RES,  IT 
OUTSIDE  THE  FEGION  * 


A  DATA  TAPE 
EACH  BLOCK, 
IN  IT  EXCEED 
HEADER  BLOCK, 

UORD  REPRESENTED 
THAT  WORD, 
WITH  BLOCK  Ii  ON  THE 


WRITTEN  IN  PACKEU 
THE  BLOCK  NUMBbR 
A  SPECIFIED  THRfcS*- 
THE  PROGRAM  KR1NIS 
AND  THE  NUMBER 


DATA  TAPfc 
EACH  BLOCK  IT  USES  UNPACK  10 
AND  THEN  CALCULATES  THE  AVtRAGt 
USING  THIS  AVERAGE  VALUE  AND  THE 
THEN  CALCULATES  THE  NUMFER  0>  ROlNiS 
AVERAGE  VALUE  PLUS  OR  MINUS  HUM. 


U 

12 

IBLF   = 

IC6LK  - 

INTHR  - 
ISAMP  = 

I TL I M  = 

LBLK  = 
LBLK4  - 
MASK   ■ 

OUT    = 

SUM    = 

THRES  - 


BLOCK 
bLOCK 


NLMBFR 
NLMBER 


is  STORiD  IN  THfc  !■  IKS  1 


OF  FIRST  BLOCK  TC  BE  SCANNED 
OF  LAST  BLOCK  TO  BE  SCANNED. 
EMFCRARY  FLFFER  TO  HOLD  PACKED  DATA 
ELOCK  NLMBER  OF  CURRENT  BLOCK  WHICH 

^nlALI7lNGFENTRY  POINT  CF  TPRESPOLC  SUBROUTlNt 
JaTA  PoInTFF    POINTS  TO  BEGINNING  OF  NEXT  aLUC* 
BE  SCANNED. 
TMREShCLD  LIMIT  TO  CHECK  ►  OR  . 

fUTA  BLOCK  IN  NUMBER  CF 

PACKED  DATA  BLOCK  IN  NUMBER 

CURRENT  BLOCK  JUST  SCANNtD 


10 


OF  A 

THAT 


UF 


LENGTH  CF  A 
LELK/4  =  LFNOTH 
CCDE  INDICATING 
A  HEADER  BLCCK. 
IEMFCRARV  ELFFER  USED 

CF  THE  VALUES  Of         ^  ^Riil    v4Lue 


SLMMATICN 

CLRRENT  BLCCK.   USED 

PROCESSING  ENTRY  POINT 


THE 

TO  POLD  UNPACKED  FLUAf ING 
THE  SAMPLE  POINTS  U 


WORDS 
IS 


HUINT 


THE 


TO 


OF  1HRESHOLD  cuBROUTINE. 


50 


DATA  (MASK  =  7777777777777777B) 

DIMENSION  I  6L  F  <  250  » ,  OLT(l000>  .,.,..,, 

EQUIVALENCE  IIBLPCD.  A(3002>>'  ^UT(l),  A(40Q2>> 

CALL  ACLS2  TC  MOVE  TAPE  TO  FIRST  Bi.CCK  TO  BE  READ- 

ISAMP  =  Il*lELK 

CALL  ADJLS2(C,0) 

00  200.  Ksli,  12 

READ  TAPE  4,  <IEUF<L>»  L«l«  LBLM> 

ISAMP  =  ISAMF  *  LBLK 

!CELK  =  1CBL*  +  1 

IF  THfc  FIRST  UCRD  OF  THE  BUFrER  INDICATES  THAT  THE 
BLOCK  IS  A  PEADER,  PRINT  OUT  THE  PEADER  MESSAGE. 

IF  (IBUF(l)  "  MASK)     90,  50'  ?0 
PRINT  60»  K,  I8LFC?),  IBUF(2) 
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CSL    FORTRAN    OF    SEPT    1*68,       TATE       6/28/71 


00051 
00051 


00052 
00060 
00061 
00065 
00070 
00071 


60 


FORMAT     (13H  iKEACER    BL0CKI4.6H       FOK    A6.3H. 
8H    BLOCKS, ) 
GO    TO    200 


1 1  0  * 


50 
95 


IF  THE  BLOCK  !S  NOT  A  HEADER  BLOCK,  CALCULATE  JHfc 
AVERAGE  VALLE  OF  THE  DATA  IN  THE  ELOCK. 

CALL  UNPACMIBUF,  CUT,  1.  1,  LBLM  ) 

SUM  s  o,o 

DO  95»  l8l»  LBLK 

SUM  =  SUH  ♦  'CLT(L) 

ISUM  =  Sip 

ISUM  =  ISLM/.LBLK 

NEXT  CALCULATE  THE  NUMBER  OF  POINTS  ABOVE  THRESHOLD 
USING  THE  PRE  V  ICUSl  V  CALCULATED  AVERAGE  VALUE  AND  ITLlM  AS 
THE  THRESHOLD  VALUE. 


ILLAR 


EXT 
LCQ 
LDA 
SLJ 
EM 


HNTHR,THRES 
ISIM 
TTLIM 
Ii  K  T  H  R 

0E 


C 
C 
C 

c 

30110 
30120 
30120 
30121 

•FORTRAN 


■-FORTRAN 

J    a    0 

DO    100,    L»l,    LBLK4 
■-ILLAR 

LDA  4       IEIF 

SLJ  A       ThRES 

■-FORTRAN 
100  CONTINUE 

PRINT    OLT    THE    BLOCK    NUMBER    AND    NUMBFR    OF    POINTS    ABUVb 
THRESHOLD, 


PRINT    150,    K#    J,     ISIM 
150  FORMAT    (ex,5>BLCCKU.5H    HAS    14.  8H    PO  I  NTS  .  70  X  ,  U  ) 

200     CONTINUE 
END 


TO 


U.5   COPYT  (IFBLK,  ILBLK,  SYMBL) 

This  subroutine  is  used  to  edit  the  data  on  one  tape  "by 
extracting  only  the  useful  information  on  it  and  copying  this  information 
on  to  a  second  tape.   The  subroutine  reads  data  from  tape  unit  h   and 
writes  on  to  tape  unit  3. 

In  operation,  the  subroutine  begins  copying  with  block  number 
IFBLK.   However,  before  doing  this  it  generates  a  header  block  containing 
a  header  code  (a  word  containing  all  l's),  the  6  character  name,  SYMBL, 
and  the  number  of  blocks  which  will  be  copied.   These  items  occupy  words 
1,  2,  and  3  of  the  header  while  the  rest  of  it  contains  garbage. 

Once  the  header  block  has  been  written  out ,  COPYT  copies  the 
designated  blocks  out  one  at  a  time  on  to  unit  3.  During  this  process 
ISAMP  and  LOCOP  are  continually  updated,  the  latter  quantity  being  a 
system  variable  which  indicates  the  total  number  of  samples  written 
on  to  unit  3  so  far.  After  the  copying  is  complete,  LOCOP  is  printed 
on  the  printer,  ICBLK  is  updated  as  if  the  program  had  been  reading 
data  into  the  data  buffer,  and  the  subroutine  returns. 
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FORTRAN    of     SfcFT    1$68,       T-TE       8/12/71 

SUfaRCUUNE    COFYTUFBlK,     ILBLK,     SYMBL) 


TAFE  C 
THE  np 
WHICH 

T 

B.I  VF1 

HLCCK 

N'UH'B'-R 
PY  TME 
P  R  I  N  T  I 
I 
W  R  I  T  T  fc 

vai.u;-s 

THE  f-'l 

IHLF  = 
I  F  F  L  ^  = 
ILBLK  = 

ilcc  = 

L  HI.  K    = 

L6LK4  = 

L  G  N  B  f  = 

LOCOJ  = 

N  U  ^  P  = 
SYf  B'.  = 


HIS  SLfcRCLTlNE  IS  USED  TO  CCPY  LATA  FrCP  rHb  DAlA 
N  LM7  4  TO  A  NEW  DATA  TAPE  ON  LNlT  3.   Thlb  ALLOWS 
ERATOR  TO  EXTRACT  FROM  A  lAFb  ONLY  THOSE  HOKTIONS 
ARb  ACTLALLY  LSEFlJL. 

HE  SUEFCuTINF  FIRST  PRODUCES  A  HEADER  FLOCK  FOR  THE 
BATCH  CF  CAT*.   THEM  IT  COPIES  DATA  BEGINNING  WlTH  rHt 
NUNEEF  SPECIFIFD  PY  IFBLK  AND  CCNJTtNUInG  iO  THE  BLOCK 
SFECIFIEC  By  M.8LK   THE  VARIABLE  iCCOF  IS  iNCRfcASEU 
NLfBEF  OF  BLCCKS  WRITTEN  ON  TO  TApE  UN  1 T  3*   AFTER 

nig  cut  the  final  value  of  lccop,  the  slERouiine  REruRNb 
t  is  i^pgrtant  tc  note  that  the  data  on  both  tapes  is 
m  in  the  packed  format,  4  samples  °er  ucrl  and  that  thc 

Ut-  LCCCP  ANT  ISAMP  REFER  TC  THE  MiKfa^R  Ci-  SAMPLES,  NO  > 

MbhR  Qf     W  C  R  D  ?  . 


1EMFCRARY  STORAGE  BUFFER  LSED  DURING  COPYING. 

i-'irsf  block  which  is  to  re  copied, 
last  elcck  which  is  to  be  copied. 

i-CSHIGN    CF     FIRST    SAMPLE    TO    BE    CnPltC 

LENGTH  CF  A  DATA  BLOCK. 

LENGTH  CF  A  DATA  BLOCK  OF  PACKED  DATA. 

lELK/4  . 

I C  T  AL     LENGTH    OF    SAMPLE    BUFFER,     BijFF. 

*  6  L  K    *    L^LK. 

'HE  TCTAL  M.MBER  OF  SAMPLES  WHICH  HAVE  bEfcN  WHITIEN  UN 

1  A  P  F  L  N  I  T  ?, 

HMfcER  CF    TATA  BLOCKS  WHICH  wILl  BE  CCPiEb. 

CHARACTER  REPRESENTATION  <A6)  Oh  THE  SPEECH  WORD 

tElNC  CCPIFC . 


A(3H04)  ) 


1  I  TL-  * 

DIMENSION  I6LF(25P) 

EQLP'ALENCE  (  t  BLF  (1  )  .  A(3002>>  »  <SYM, 

n  A  T  A  (MASKS7777/77777777777B) 

ISAMP  =  1FBLK-LBLK 
CALL  AIULS2(Cf0) 


SET  LP  AND  WRTTE  CUT  THE  HEALfcR  ELUCK  CrNTAlMNG  THE 
HEADER  BLCCk  INC  ICaTOR,  IRUF d  )  ,  THE  NLM6FR  OF  BLOCKS  OF  DATA, 
IBIF'?),  ANC  THE  WfR^  REPRESENTED  BY  THE  DATA,  SYMB. 

I  BL  F ( 1  )  =  MASK 

IBUF(2)  =  1LELK  -  TFRLK  +  i 

SYN      =  SYf-EL 

WRITH  TAPE  if     (IBUF(J),  J=l,  L8LK4) 

LOCO"  =  LCCCF  +  LBl  K 


NEXT  CCFY  CUT 
I'PDaMnG  I  SAN  F  AND 


THE  REQUIRED  NLMBER 
LOCCP  AS  YOU  GC . 


OF  DATA  BLOCKS, 
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on  03? 

00037 
00050 
00061 
0006? 

0  0  U  6  4 


0UU66 
0  0  0  7  2 


0  0  0  7  2 


OUll  7s 
0  010  0 

n  n  i  n  i^ 

0  0 1 0  6 

00110 

001  16 
0  0116 
OUH  7 
0  0120 
-  P  I ;  P  T  • 


CSL    Kl 

IliO 


1  v<y 


2uU 


?3i' 

2  =  1 

2  c  .i 

3  l  L 


RTRAN    OP     Sfc^T    1«68,        TATE 
bO    i«^9.     IsIF6LK,     Ii  gLK 


REAP  TAPt  4, 
WRITE  TA^-E  2» 
ISAMP  =  ISAKF 
LOCOP  =  LCCCF 
CONTINUE 


(  I  P.  U  F  (  J  )  , 
( IBUF ( J)i 
+  LBl  K 
♦  LBLK 


8/12/71 

Jal,  LBLK4) 
jsl,  LBLK4) 


FINALLY.  PRINT  OijT  THE  RESULTING  NEw  Va[_UE  OH 


LOCO; 


PRlNl  2DU,  LCCOF 

F  CRmaT  (9h  LCCOF  s  19  ) 

AT  1Kb  BNC  OF  a  CCPY,  RESET  ICBLK  To  A  cCSiUON  |\,6L*  BluCI 
IN  F-OMT  CF  ThE  CUCPENT  POSITION  CF  T  t- E  TAPt  UNITS  REAC  HtAb. 
THIS  KtEpS  AULS?  FRHM  GETTING  CONTUSED  AEOUT  THt  S  T  A  I  lS  OF 
TAPE  U N  II  . 

ICfc'l.f*  =  IbAyF/LBLK  -  N-L* 

IF  It-E  FAPER  TAPE  READER  IS  bfclNG  iqED  Ab  i  Ht  InPlT 
lB\llrk,     CONTINUE  Tr  REAP  COMMANDS  In  THE  FOPy  GiVfciM  IN  FUHMA 

STATEKPM  251  U  N  T  1 1   *  \  F  r,  A  T  I  \/  b  VALUb  CF  T  F  B  ^  «  Is  F  0  L  n  b  . 


IP  (  I  UN  I  I  -  54 )     3  00* 

READ  I  \"  H  L  7  T  «  P  E  «5  4  .  ?  5 1 

F  C  R  M  a  7  (  i  3  » i  >  ,  I  3  .  i  >  ,  a  6  > 


IF  (  I  FPL*  ) 
P P  In  ? 6 .1  , 
F  C  R  M  *  1  <  -  r 

r*C  T 

nFTll 


6  0  O  #  5  A  0  i 

I  F  6  L  K  ,   J  L  8  _  K 
C  C  F  y  =  r  3  . 1  *■ 


250*  JS  0  0 
IFBI.K,  ILBLK,  f-MAMt 

SOU 
F  N  A  M  b 

Ii  ,  1  H  »  A  fe  ) 


1  U 


E  N ! ' 
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Section  5 
DATA  MANIPULATION  ROUTINES 

This  set  of  subroutines  is  used  to  perform  the  operations 
necessary  to  keep  the  data  "buffer,  BUFF,  full  and  ISAMPB  adjusted  properly. 
ADJUS2  checks  to  see  if  there  are  IWIDE  samples  in  the  buffer  beyond 
the  current  ISAMPB  position.   If  not,  it  reads  along  the  data  tape  until 
it  can  load  the  proper  data  into  BUFF.   Then  it  recalculates  the  value 
of  ISAMPB  and  returns. 

BLOCKED  is  used  by  ADJUS2  to  read  the  data  tape  from  tape  unit 
h.      It  was  written  so  that  all  of  the  tape  manipulations  used  in  ADJUS2 
would  be  centered  in  one  module. 

UNPACK  is  the  subroutine  used  by  BLOCKRD  to  unpack  the  packed 
data  after  it  is  read  in  from  the  tape  and  to  convert  the  samples  from 
integer  to  floating  point. 

The  data  tape  itself  is  made  up  of  a  sequence  of  data  blocks 
which  are  stored  in  a  packed  format.   This  essentially  means  that  the 
data  is  stored  as  CDC  l6okt   U8-bit  integer  numbers  where  each  number  is 
made  up  of  h,   12-bit  integer  samples.   Each  block  contains  a  total  of 
LBLK  packed  data  samples  or  LBLK/U  words.   LBLK  is  a  system  constant 
which  has  always  been  1000.   However,  the  data  manipulation  programs 
have  been  written  such  that  this  number  can  be  varied  without  reprogrammin^ 
A  typical  full  length  data  tape  can  contain  around  900  data  blocks  or 
about  900,000  data  samples. 

The  data  tapes  used  to  produce  the  final  speech  displays  have 
been  divided  up  by  previous  editing  into  individual  speech  words,  each 
beginning  with  a  special  header  block.   The  first  word  of  the  header  block 
contains  all  l's  as  an  identification.   The  second  word  contains  the 
number  of  blocks  in  the  speech  word  and  the  third  word  contains  the 


Ik 


symbolic  representation  of  the  recorded  word.  The  header  blocks  are 
used  for  several  purposes:   to  identify  the  speech  words  when  the 
contents  of  the  data  tape  are  being  printed  out  by  THRSPIC ,  to  indicate 
the  length  of  the  data  so  that  I TIME  can  be  calculated  before  the  speech 
data  is  processed  and  to  search  the  tape  for  particular  speech  words 
instead  of  an  address. 
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5.1  ADJUS2  (IWIDE,  NFLAG) 

The  purpose  of  this  subroutine  is  to  ensure  that  the  data 
"buffer,  BUFF,  contains  the  data  which  will  be  needed  by  the  processing 
routines.   It  can  also  be  used  to  position  the  data  tape  in  preparation 
for  some  type  of  direct  processing  on  it.   IWIDE  is  used  to  indicate  to 
the  subroutine  how  many  samples  beyond  the  current  position  of  ISAMP  will 
be  needed.   NFLAG  designates  the  type  of  processing  option  to  be  used 
cy  ADJUS2. 

ADJUS2  first  calculates  new  values  for  ISAMPB,  the  data  pointer 
location  within  the  data  buffer;  ITBLK,  the  block  number  of  the  next  block 
to  be  read  from  the  data  tape;  and  ISBLK,  the  block  number  of  the  data 
block  currently  containing  ISAMP,  on  the  basis  of  the  latest  values  of  the 
data  pointer,  ISAMP;  the  block  number  of  the  initial  block  appearing  in 
BUFF,  and  the  various  buffer  constants  pertaining  to  length,  block  size, 
etc. 

If  NFLAG  =  0,  ADJUS2  then  simply  moves  the  tape  so  that  the  next 
block  which  is  read  after  the  move  will  contain  ISAMP.   This  option  is 
especially  useful  during  data  tape  editing.   To  accomplish  this,  the  block 
number  of  the  block  containing  ISAMP  is  checked  for  0,  since  in  this  case 
a  simple  rewind  can  be  performed.   If  it  is  not  zero,  the  subroutine  calculates 
the  number  of  backspaces  necessary  to  position  the  tape  and  then  performs 
them  .   If  this  number  is  negative,  the  subroutine  skips  forward.   In 
either  case,  after  the  tape  has  been  removed,  new  values  for  ICBLK  and 
ISAMP  are  calculated  before  returning.   If  the  number  of  spaces  is  zero,  no 
action  is  performed  and  ADJUS2  returns  immediately. 


1  The  use  of  backspaces  instead  of  forward  spaces  came  about  from  the 

fact  that  the  backspacing  subroutine  existed  before  the  forward  spacing 
routine,  i.e.  BLOCKRD. 
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If  NFLAG  does  not  equal  zero,  the  subroutine  must  check  the 
buffer  to  see  if  the  desired  data  is  within  it  and  if  not,  the  buffer  will  be 
reloaded.   If  the  buffer  must  be  reloaded  (due  to  either  overflow  or  under- 
flow) and  NFLAG  =  +1,  the  buffer  will  have  to  be  reloaded  in  such  a  way 
as  to  cause  ISAMPB  to  be  in  the  middle  of  the  buffer.   This  option  is  useful 
in  those  cases  where  forward  and  backward  movements  along  the  data  are 
equally  likely.   If  NFLAG  =  -1,  the  buffer  will  be  reloaded  so  that  ISAMPB 
will  be  in  the  first  block  of  the  buffer.   This  is  most  useful  in  those 
cases  where  only  forward  motion  along  the  data  tape  is  contemplated.   The 
only  difference  between  the  two  as  far  as  operations  are  concerned  is  the 
value  assigned  to  NCBLK,  the  new  initial  block  number  which  will  replace 
the  current  value  of  ICBLK  if  the  tape  must  be  moved. 

Once  the  value  of  NCBLK  has  been  calculated,  the  subroutine, 
using  the  values  of  ISAMPB  and  IWIDE,  checks  to  see  if  all  of  the  data  is 
within  the  length  of  BUFF.  If  there  is  an  overflow  or  underflow,  the 
tape  will  be  spaced  to  a  position  where  it  can  begin  to  read  the  proper 
data. 

At  this  point,  there  is  a  slight  non-uniformity  in  the  handling  of 
overflow  and  underflow.   In  an  overflow  condition,  ADJUS2  will  check  to 
see  if  any  of  the  data  in  the  buffer  is  useful  and  if  so,  will  shift  it  to 
the  front  of  the  buffer  before  reading  in  new  data  to  fill  up  the  end  of 
the  buffer.   In  an  underflow  condition,  the  tape  is  simply  backed  up  to  a 
position  from  which  it  can  completely  read  in  the  whole  buffer.   This 
non-uniformity  is  due,  in  part  at  least,  to  the  fact  that  our  records 
cannot  be  read  backwards  by  the  tape  units. 
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Once  the  tape  unit  has  been  properly  positioned,  the  correct 
number  of  blocks  are  read  from  the  tape  and  loaded  into  their  proper 
positions  in  BUFF  after  having  been  unpacked  and  converted  to  floating 
point.   Then  the  updated  values  of  ICBLK,  and  ISAMP  are  calculated  and 
the  subroutine  returns. 
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ZQ 


TU  SEE  If  THE 


THIS  SUEROL.TINE  CHECKS  THE  POSITION  CF  ISAMP 

COMPLETELY  WITHIN  THE  SAMPLE  BuF F bk  . 
THE  TAPE  IS  REPOSIMONbU  AND  THEN 
BUFFER  IS  RELOADED.   WHEN  NFLAG  =  +1, 
THAT  ISAMP  IS  U  THE  MIDDLE.  AND  WHEN 
THAT  ISAMP  IS  IN  THE  LEF  IKUc 
ONS  THE  TaPE  SO  THAT  ISAMP  IS  U 
FROM  THE  TAPE  REGARDLESS  QF  uHElHtK  OR  NC 


DATA  TO  EE  LTILIZET  IS  STILL 

AN  OVERFLOW  'CR  INDFRFLOW  OCCURS 

NFLAG  IS  NON-ZERO,  THE  SAMPLE 

BUFF  WILL  BE  REPOSITIONED  SO 

NFLAG  =  -1.  IT  WILL  RE  REPOSITIONED  SC 

BLOCK.   IF  NFLAG  =  0.  ADJUST 

THE  NEXT  ELCCK  TO  EE  READ 


THERE  IS  AN  CVERFLCW  OR  UNDERFLOW  CONDITION. 

THIS  CONSISTS  OF  SEVERAL  EQUAL-LbNGTh 


BUFF   = 

ISAMP  = 
ISAMPBs 
ISELK  = 
ITBLK  = 

IWIDE  = 
ICBLK  = 

NBLK  = 
LBLK  = 
LGNBF  a 

NFLAG  = 


BUFFER 


THE  .SAMPLE 
ELOCKS  . 

FCSITION  OF  THE 
FCSITION  OF  THE 
BLOCK  NLM8FR  OF 
BLOCK  NLMBER 
EE  READ  FRCP 
UIDTF  OF  THE 
BLOCK  NLMBER 
F  I  R£l  SLOCK 


OF 


SAMPLE  POINTER  WITH  pEFERbNCE  TU 
SAMPLE  POINTER  WITH  RbFbRbNUb  TU 
BLOCK  CURRENTLY  CONTAINING 
BLOCK  WHICH  IS  CURRENTLY 

TAPE. 

WINDOW  TO  BE  DISPLAYED. 
OF  THE  CURRENT  BLOCK  WHICH 
OF  BUFF, 
TFE  NLMBER  CF  BLOCKS  IN  BlFF 
TF-b  LENGTH  CF  EACH  BLOCK  IN  BLFF 
1CTAL  LENGTH  OF  THE  SAMPLE  BUFFER. 
NBLK  *  LBLK, 
0  POSITION  TAPE  SO  READ  HEAD  WILL 
IS  AMp  NEXT  . 

OR  UNDERFLOW,  FOSTTION  ISAMP 
OR  UNDERFLOW,  FOSlTlON  ISAMP 


UAIA  TAPb. 
bUF  F  . 


THta  NEXT  TU 


IS  STORbD  IN  THE 


BLFF 
READ 


BLOCK  CONTAINING 


"1 

+  1 


IF 
IF 


OVERFLOW 
OVERFLOW 


IN 
IN 


TITLE* 

ISAMPB  =  I SAH  F  -  IC6LK*LBLK 
ITBLK  =  ICBLK  ♦  NBLK 
ISELK  =  ISANF/LELK 


LEFTMUSl  6LC 
MIDDLE  tiLCLK 


CHECK  NFLAG  Fcfi  ACJUS2  OPTION  TO  BE  LSEC 


IF  (NFLAG) 

IF  NFLAG 
BLOCK  ON  TARE 
ACCORDINGLY, 
UNLOAD. 


95.  20.  50 


=  0,  KOVE  THE  TAPE  SO  THAT  ISA^P 
AFTER  PEAD  HEAD  AND  ADJLST  ICB|K 
NCTE  THAT  IF  NCBLK  IS  NEGATIVE,  THE  TAPb  WILL 


APPEARS  LN 
AND  ISAfHB 


THE  KIRbl 


ICBLK  =  ISBLK  -  NBLK 

ISAMPB  =  ISAhP  -  IS6LK*LBLK  ♦  LGNfcF 

CHECK  ISBLK  FCR  ZERO. 
IF  (ISBLK)     25.  21.  25 

IF  ISBLK  =  0.  REWIND  TAPE  INSTEAD  OF  BACKSPACING. 
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IF  ISBIK  IS  NCT  ZERO,  CALCULATE  THE  NUMBER  OK  BACKSPACES 
NEEDED. 

NBKSP  *  ITBLK  -  ISBLK 

IF  (NBKSP)     40.  150.  30 

CALL  BK6PFILE<4,  NPKSP) 

GO  TO  150 

CALL  BLOCKRC(l,  -NEKSP,  0) 

GO  TO  150 

IF  NFLAG  *  *l,  CALCULATE  THE  NEW  VAl  IE  cF  NCBLK  10  BE 
USED  IF  THE  'EATA  TAPE  MUST  BE  REPCSI TIONFC .   IN  THIS  CASE 
ISAMP  SHClLC  APPEAR  IN  THE  MIDDLE  OF  THE  BUFFER. 

NCBLK  s  ISBLK  -  (NBLK/2) 
GO  TO  100 

IF  NFLAG  ■  -i,  CALCULATE  THE  NEW  VAl  UE  CF  NCBLK  TC  BE 
USED  IF  THE  'C ATA  TAPE  MUST  BE  REPCS I T I ONFC  .   IN  THIS  CASE 
ISAMP  WILL  AFPEAR  IN  THE  INITIAL  BLOCK  OF  THE  BUFFEB. 

NCELK  »  ISBLK 

CHECK  FOR  OVERFLOW  AND  UNDERFLOW  CF  SAMPLE  BlFFER. 

IF     (ISAMF6*I'HDE-LGKBF>  101.    101,    126 

IF     (ISAMPB)         110.    150.    150 

ON  UNDERFLOW,  BACKSPACE  TAPE  UNTIL  THE  READ  HEAD  PASSES 
THE  FIRST  BL'CCK  WHICH  IS  TO  BE  IN  THE  ADjLSTED  BUFFER.  THEN 
TRANSFER  TO  THE  LOCP  WHICH  LOADS  LP  BLFF  FROV  THE  TAPE  UNIT. 

IF  (NCBLK)     H5,  115.  118 

NCBLK  ■  0 

REWIND  4 

GO  TO  145 

NBKSP  *  ITBLK  -  NCELK 

CALL  BKSPFILE(4,  NPKSP) 

GO  TO  145 

ON  OVERFLOW.  CHECK  THE  DISTANCE  BETWEEN  THE  PRpSfcM  TAPE 
HEAD  POSITION  AND  THE  NEW  FIRST  BLOCK  TO  BE  READ  INTO  BUFF. 


IF  (NCBLK  -  ITBLK) 


125,  145,  140 


IF  THE  DISTANCE  IS  NEGATIVE,  SOME  OF  THE  DATA  IN  BUFF  IS 
STILL  USEFUL.   RELCAD  ALL  OF  THESE  BLOCKS  INTO  THfc  ^RON.I  PART 
OF  BUFF.   THIS  LOACING  WILL  BEGIN  WITH  THE  DATA  BL06K  WHICH  IS 
TO  BE  THE  NEW  FIRST  BLOCK  OF  BUFF  AND  WllL  END  WITH  THE  FINAL 
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DATA  WORC  IN  THE  OLE  SAMPLE  BUFFER. 

IBEQ  =  (NCBLK  -  ICELK)*LBLK 

IEND  s  LGNBF  -  1 

DO  130.  la  I EEG  •  IENC 

BUFF(I-IBEG)  =  EUFF<! ) 

CONTINUE 


140 
145 


1  *J  6 

i 

149 


NEXT  ten    THE  REMAINING  BLOCKS  IN  THE  NEW  BUFFtaR  FROM  lAPb. 

THE  TAPE  LOADING  WILL  START  klTH  THF  FIRST  BLOCK  NUT  LUAUbD 
BY  THE  MEMORY  TRANSFER,  AND  WILL  bND  HTM  THE  FINAL  BLOCK  IN  THk 
SAMPLE  BLFFEP  , 

IBEG  =  ITELK  -  NCBLK 
GO  TO  146 

IF  THE  'EISTANCE  BETWEEN  THE  PRESENT  TAPE  HEAU  POSH  ION  AND 
THE  NEW  FIRST  BLOCk  TO  BE  READ  INTO  BLFF  IS  C-REATtR  THAN  ZERO, 
FIRST  POSIT1CN  THE  TAPE  UNIT  TO  Tt-fc  CCRRFCT  fOInT. 

CALL  BLOCKRH ITELK,  (NCBLK-1).  0) 
IBEG  =  0 

FINALLY.  LCAD  EUFF  WITH  THE  REQUIRED  NUMBER  UF  BLOCKS  F ROM 


TAPE. 

IEND  =  NELK  -  l 

CALL  BLOCkRC ( IBEG,  IEND.  l) 

CHANGE  ICELK  TO  REFLECT  NEW  STATE  OF  BUFFER. 
ICBLK  s  NCBLK 

ISAMPB  =  I SANP  -  ICELK*LBLK 
RETURN 
END 


AN 
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5.2  BLOCKRD  (IBEG,  IEND,  MODE) 

This  subroutine  is  the  tape  reading  module  for  ADJUS2.   It 
reads  blocks  of  data  in  packed  format  from  tape  unit  k   and  loads  them 
into  a  temporary  buffer,  IBUF.   If  the  MODE  variable  equals  zero,  the 
data  is  not  used  and  the  subroutine  simply  reads  the  number  of  blocks 
which  would  be  between  IBEG  and  IEND,  inclusive.   If  the  MODE  variable 
is  non-zero,  BLOCKRD  unpacks  each  block  after  it  has  been  read  into  IBUF 
and  loads  the  resulting  floating  point  data  into  BUFF  starting  with  the 
block  specified  by  IBEG  and  continuing  until  the  block  specified  IEND 
has  been  filled. 

It  should  be  noted  that  IBEG  and  IEND  refer  to  block  numbers 
within  BUFF,  not  as  they  occur  on  the  data  tape.   The  tape  is  read 
beginning  with  wherever  it  is  positioned  on  the  tape  unit.   Thus  in  order 
to  avoid  overwriting  other  data,  IBEG  and  IEND  should  both  be  less  than 
the  number  of  blocks  allocated  to  BUFF  (unless  of  course  MODE  equals  0). 

The  main  reason  for  writing  this  operation  as  a  subroutine 
(other  than  the  fact  that  it  took  less  core  space  as  a  subroutine  than 
if  the  code  had  had  to  be  written  several  times  inline)  was  to  isolate 
all  of  the  tape  reading  operations  into  one  program  so  that  it  would  be 
easier  to  modify  if  that  ever  became  necessary. 
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SUBROUTINE  ELCCKRCt IPEG, 


b 

10 
20 


6/28/71 

IEND,  MODE) 


THIS  SUBROUTINE  IS  USED  TO  RfcAD  ELOCKS  C*  DAIA  FHCH  !Hb 
DATA  TAPE,   IF  VODF  IS  NON-ZERO,  7HE  ELOCKS  ARE  UNPACKEU  ANU 
LOADED  INTO  ELFF.   IF  MODE  IS  ZERC.  THE  BLOCKS  ARE  6ISCARDED 
AS  TMEY  ARE  READ.   IBEG  IS  THE  STARTING  BLOCK  AS  REFERENCED 
IN  BUFF  AND  IEND  If  THE  ENDING  BLCCk.   RFADIkG  BEGINS  FHOM 
WHEREVER  THE  TAFE  l-APPENS  TO  BE  PCSITIONFC. 


TITLE* 

DIMENSION  IELF(250) 

EQLIVALENCE  (IBLF(i) 


A(3002)  ) 


CALL  STCPSCOP  IN  CRDER  TO  BE  ABLE  To  USF  IBU»-»  WHICH  lb 
LOCATED  IN  TKE  SAMF  AREA  AS  THE  DISPLAY  RLFFFR,  ISCQPl. 

CALL  STOFSCCF 
DO  100.  I*  I  EE  G  »  !EkC 
JSTRT  =  I*LELK 
READ  TAPE  4,  (  IEUF(W  )  ,  Jsj. 
IF  (MODE)     50»  100'  50 
CALL  UNPACK(  IBUF,  FLFF.  i» 
CONTINUE 
RETURN 
END 


LBLK4) 
JSTRT,  LBLK4) 


Ran 
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5.3  UNPACK  (Bl,  B2,  II,  12,  N) 

The  UNPACK  subroutine  is  used  to  convert  data  from  the  format 
used  by  the  A  to  D  converter  and  the  data  tapes  to  the  floating  point 
format  used  by  the  processing  routines.   It  takes  N  successive  packed 
format  words  from  Buffer  Bl  starting  at  position  II  and  converts  each 
of  them  to  k   floating  point  numbers  which  are  then  stored  consecutively 
in  buffer  B2  starting  at  12.   The  packed  samples  are  stored  right  to 
left  in  each  word  in  Bl. 

The  subroutine  works  on  each  Bl  word  by  shifting  one  sample 
at  a  time  from  the  A  register  to  the  Q  register  and  then  converting 
the  sample  to  floating  point.   Note  that  the  contents  of  Bl  remain 
unchanged. 
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THIS  SUEROLTINE  TAKES  N  4-SAMPLE  WORDS  FROM  Bl  SI jKTINb 

AT  li.  ANC  OCNVERT?  EACH  OF  THEM  TO  4  FLT.  PT.  WORDS  S»TWRbD 

CONSECUTIVELY  IN  B2 .  STARTING  AT  12.  THF  SAMPLES  AWE  S'OREU 
RIGHT  TO  LEFT  IN  EACH  Bi  WORD. 

Bl     *     INPLT  BLFFER  CONTAINING  FCUR  PACKED  INTEGER  SAMPLES 

IN  EACH  ENTRY.  kT  Ck,td,uc 

B2     =  CLTPLT  BUFFER  CONTAINING  FLOATING  POINT  ENTRIES- 
l!     =  START  I NG  PCINT  IN  Bl  . 
12     =  STARTING  PCINT  IN  B2. 

ITEM2  =  LSEC  TO  SAVE  UNPACKED  INTEGERS.  B„cinnM 

L      =  INDEX  REGISTER  4.   USED  TC  KEEP  TRACK  OF  POSIUUN 

In  p "" 
TEM    =  TEMPCHARY  STORAGE  USED  TO  H0LD  PACKEC  DATA  hHlLb  H 

IS  BEING  PRCCESSED. 

DIMENSION  Bi(lOOOO).  B2<10000> 

L  *  12 

NU=  II  *  N  "  1 

DO  5»  1=11'  K 

TEM  =  Bid  > 


--ILLAR 
LOCP 


EM 
LCA 
LRS 
QRS 
STQ 


OE 
TEM 
146 
4<B 
I  TEM2 


SET  INDEX  REG,  2  Tn  ZERO. 
LOAD  REMAINING  PACKED  SAMPLbS,  RT»  jUb  i 
SHIFT  ONE  12  BIT  SAMPLE  INTO  U  HEU. 
«T  JUST.  SAMPLE  IN  C  REGISTtR 


RESURE  THE  REST  CF  THE  WORD  (CONTAINING  ^H0"^fcD 
SAMPLES)  BACK  INTO  TFM,  SINCE  THE  CONTENTS  OF   H       G^SI 
WILL  BF  CESTFCYED  TLRING  THE  FLOATING  POINT  CONVERSION. 


EH 


STA        TEM 
--FORTRAN 

C  CONVERT  LNFACKED  INTEGER  SAMFLE  TO  FLOATING  POINT 

C        WHILE  LOADING  IT  INTO  2ND.  BUFFER, 

C 


00021 
00022 
00023 
■-FORTRAN 


B2(L>  =  ITEM2 
ILLAR 

INI     4   lE 
ISK     2   3t 
SLJ     0   L'COP 
FORTRAN 
5     CONTINUE 
RETURN 
END 


INCREMENT  INDEX  REG.  4  BY  1- 

IF  IR2=3.  WCRD  IS  FINISHED.  SKIP  10  SlAlfcMEN 
OTHERWISE  INCREMFNT  IR2  AND  JUMP  TO  LOOP. 
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Section  6 

SPEECH  DISPLAY  ROUTINES 
The  Speech  Display  routines  consist  of  those  programs  which 
are  actually  used  to  generate  display  data  for  the  display  routine. 
They  make  use  of  the  various  types  of  speech  processing  programs  to 
obtain  the  necessary  display. 
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6.1  SPECTO 

This  routine  is  the  display  routine  for  generating  spectro- 
grams.  It  obtains  data  from  the  COMMON  data  "buffer,  BUFF,  using  the  ADJUS2 
subroutine  to  read  data  in  from  the  data  tape  and  update  the  buffer  as 
necessary.   It  uses  the  fast  Fourier  transform  subroutine,  FFTB,  to  analyze 
the  input  data  and  takes  the  resultant  complex  coefficients  (stored  in  the 
X  and  Y  arrays)  and  converts  them  to  frequency  component  magnitudes  vhich 
are  loaded  into  the  appropriate  time  slice  in  FINT. 

The  Characteristics  of  the  spectrographic  intensities  loaded 
into  FINT  depend  on  the  various  COMMON  area  system  variables  and  con- 
stants.  ISAMPB  points  to  the  beginning  of  the  data  to  be  processed  in 
BUFF.   It  is  continually  updated  as  data  is  processed  and  whenever  the 
buffer  is  refilled  by  ADJUS2. 

NSAMT  indicates  the  number  of  data  samples  to  be  processed  per 
time  slice,  i.e.  the  time  slice's  width,  while  IDELT  specifies  the  number 
of  data  samples  between  successive  time  slices.  Normally  these  two  quantities 
are  equal,  but  it  is  possible  for  them  to  have  different  values,  in  which 
case  there  will  be  either  a  spacing  or  an  overlap  between  successive  time 
slices. 

IFREQ  and  ITIME  specify  the  maximum  number  of  frequency  and  time 
slice  entries,  respectively,  which  are  loaded  into  FINT  by  the  SPECTO 
subroutine.   Note  that  the  standard  system  practice  of  accessing  FINT  as  a 
one-dimensional  array  is  used.   The  two-dimensional  subscripts  are  calculated 
explicitly  using  the  IFMAX  system  variable.   This  allows  both  an  increase  in 
speed  and  the  ability  to  change  the  relative  size  of  the  two  dimensions  in 
FINT  without  recompiling. 

Figure  6.1.1  shows  several  examples  of  spectrographic  displays 
calculated  by  SPECTO  and  produced  using  the  system  CRT  display  routines. 
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Speaker  a 
"shod" 


Speaker  a 
"vile" 


Speaker  b 
"said" 


Speaker  b 
"ted" 


Speaker  c 
"said" 


Speaker  d 
"dame" 


Figure  6.1.1  Examples  of  Displays  Produced  Using  SPECTO 
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The  commands  needed  to  actually  produce  the  display  after  having  moved 
the  data  tape  pointer  to  the  position  of  the  header  block  for  the 
particular  speech  word  are  as  follows: 

HEADT  Calculates  ITIME  based  on  time  slice  size 

and  the   length  of  data  word. 

FINIS  Prints  out  the  variable  values  and  turns 

off  the  display. 

SPECTO 

NORMF  Normalizes  the  output  of  SPECTO. 

HIEMP  Adds  high  frequency  emphasis. 

SPDISP  Produces  the  picture  of  the  display. 

These  displays  all  involve  the  standard  variable  values  specified  in 
INITI.   Figure  6.1.2  shows  the  effect  of  varying  the  size  of  the  time 
slice.   The  other  system  variables  have  been  adjusted  to  give  the 
resulting  displays  an  equivalent  position  size  and  parameter  range. 
There  have  also  been  minor  deviations  from  the  standard  display  parameters 
so  as  to  allow  smooth  transitions  by  factors  of  2  in  all  of  the  relevent 
parameters  (i.e.  IDELX  and  IDELY  were  changed  from  their  "standard" 
values  in  the  displays  in  figure  6.1.1). 
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nsamt  =  6k 


nsamt  =  128 


nsamt  =256 


nsamt  =  512 


nsamt  =  102U 


Figure  6.1.2  Effect  of  Variations  in  Time  Slice  Size  on  the 
word  "shod" 
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FROM  DATA  blvEM  IN  BuFI 


CSL  FORTRAN  OF  SEFT  1*68,   CATE   6/28/71 
SUBROUTINE  SPECTO 

THIS  SUBROUTINE  GENERATES  A  SPECTROGRAM 
STARTING  AT  ISAKP,   THE  AMPUlTUDES  OF  THE  OUTPUT  ►RiQUENClEb  AS  A 
FUNCTION  CF  TIME  ARE  LOADED  INTO  THE  FLOATING  POINT  ARRAY. 
FlNT(FREClENCY.  TIME). 


361 


500 


BUFF 
IDELT 
IFREQ 
IFMAX 


FINT 
ISAMPB 

1SAMP 

IT  IMF 

L 

LGNSM 

M 

NSAMT 

NSMT2 

X 
Y 


EUFFER  CONTAINING  TIME  SAMPLES  TC  BE  ANALYZED. 
SPACING  (IN  NO.  OF  TIME  SAMPLES )  BETWEEN  ANALYSbS 
NO.  CF  FRPCUENCY  POSITIONS  IN  DISPLAY. 
COMKCN  VARIABLE  -  MAXlMUf  NUMBER  OF  ENTRIES  AL^N 
FRECLENCY  TIMENSION  OF  FINT.   USED  TO  CALCULATk 
COLBLY  SUPSCRIPTED  ADDRESSES  IN  FINT 
CUTFLT  INTENSITY  ARRAY.   DIMENSION 
FINT(IFREC.ITIME)  BEFORE  COMFILlNG. 
FOSITICN  CF  SAMPLE  POINTER  WITH  RESpEC 

is  the  first  sample  in 
is  called. 


Oh  DATA 


KUST  BE  SET  TO 


TO 


FOSITICN  CF  THE  SAMPLE 

THE  COMPLFTE  DATA  TAPE 

NUCEER  OF  TIME  SLICES. 

INDEX  REGISTER  4 

LOG  TC  BASE  2  OF  NSMT2 

INDEX  REGISTER  5 

NO.  CF  TIKE  SAMPLES  TO 


BUFF  TO 
POINTER 


qE  PROCESSEC 
WITH  RESPECT 


BUFH  . 
WhbN 


IH1S 
Ft-  TB 


rc 


Bb  ANALY7ED  FbR  UMfc  SLlCb 


CCMPONENT  OUTPUT  BUI-.FfcR  FUR 


NUMBER  OF  CUTPUT  FREQUENCIES  IN  X 

NSAKT/2. 

COK^CN  VARIABLE  -  REAL 

COMKCNLVARUBLe'-  IMAGINARY  COMPCNENT  QU1PUT  BU^FEh 
FOR  FFTB  SLqROUTINE. 


TITLF* 
DO  600 


1*1. 
BEGIN 


ITIME 


THE  BUFFER 


L'COP  TO 
TC  MAKE 


PROCESS 
SURE  IT 


TIME  SAMPLES 
CONTAINS  THE 


START  BY  CHtCMNG 
CCMPLETE  TIME  SLICE 


CALL  ADJIS2(NSAKT,  »1> 

CALL  FFTE(NSAMT.  NFMT2.  LGNSM.  BuFF(ISAMpE) 


0) 


A  SINGLE 
IS  A  DOUBLY 


LOAL  OITPUT  OF  FFT  INTO  UNIT,   NCTE  THAT  CNLY 
SUBSCRIPT  IS  USED  IN  ACCESSING  FINT  EVEN  JHOlGH  IT 

ARRAY.   THIS  GREATLY  INCREaSFS  Tl-E  SPbEU  OF  THE 
IN  CSL  FORTRAN  AND  ALSO  ALLOWS  ThE  RELATIVE  SIZbb 
CIMENSICNS  TC  BE  CHANGED  MThCUT  RECOMPILING. 


SUBSCRIPTED 
CALCULATION 
OF  THE  FINT 


L  =  (  I-l>*IPfAX  *  3 

DO  500.  M»2i  (  IFREC*!) 

FINT(L)  -     SCFTF(X(N  )*X(M)  ♦  Y(M)*>(M>) 

L  =  L  +  1 
CONTINUE 


UPDATE  ISAKP  TC  POINT  TO  THE  NEXT  TIME  SLICE. 
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CSL  FORTRAN  OF  9EFT  1568,   TATE   6/28/71 
C 

05  ISAMP  =  ISAKF  ♦  IDELT 

06  600     CONTINUE 
(iO         END 

citran 
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6,2   ZEROC 

This  routine  produces  data  for  a  zero-crossing  display  in 
which  the  frequency  of  the  zero  crossing  rates  is  plotted  as  a  function 
of  time.   It  utilizes  four  digital  filters  to  separate  the  speech  input 
into  four  different  frequency  regions.   Then  it  calculates  the  zero- 
crossing  rate  for  each  of  these  regions  and  makes  entries  in  the  FINT 
array  at  the  frequencies  corresponding  to  these  rates.   The  magnitude 
of  these  entries  is  proportional  to  the  average  magnitude  of  the  data 
within  the  respective  filter  region. 

The  program  begins  by  initializing  the  digital  filters  and 
setting  up  various  arrays  and  constants.   It  should  be  noted  that  the 
parameters  which  are  to  be  used  in  the  calculations  of  each  particular 
filter  are  calculated  by  INILER  and  then  stored  in  the  arrays  which  have 
been  named  as  parameters.   In  order  to  cut  down  on  the  size  of  the 
programs,  the  processing  of  the  frequency  bands  is  performed  by  means  of 
a  DO  loop.   Thus  in  order  to  avoid  complications,  the  four  filters 
utilize  the  same  arrays  to  hold  their  "characterizing  parameters"  and  simply 
use  different  regions  of  the  array.   The  format  is  shown  schematically  in 
figure  6.2.1.   The  arrays  can  be  thought  of  as  doubly  subscripted  arrays 
in  which  the  subscripts  are  being  calculated  explicitly  "by  hand". 

The  limits  of  the  four  frequency  bands  are  contained  in  two 
constant  arrays,  IF1  and  IF2,  which  are  given  as  parameters  to  INILER. 
As  can  be  seen  in  the  program  printout ,  the  first  filter  has  a  negative 
lower  edge  value.   This  turns  out  empirically  to  give  the  f latest  low 
frequency  response.   The  reason  for  this  can  be  seen  intuitively  from 
the  fact  that  we  are  using  a  bandpass  filter  in  an  application  where 
we  would  really  prefer  a  lowpass  filter. 
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filter  variables 


filter   constaats 


Y1(0) 

Y2(0) 

CONST(O) 

11(1) 

12(1) 

CONST(l) 

Yl(2) 

Y2(2) 

C0NST(2) 

Yl(3) 

Y2(3) 

C0NST(3) 

n(U) 

Y2(U) 

CONST(H) 

Yl(5) 

Y2(5) 

C0NST(5) 

11(6) 

12(6) 

C0NST(6) 

11(7) 

Y2(T) 

CONST(T) 

Yl(8) 

12(8) 

C0NST(8) 

11(9) 

12(9) 

C0NST(9) 

Y1(10) 

Y2(10) 

CONST (10) 

11(11) 

Y2(ll) 

CONST (11) 

Y1(12) 

Y2(12) 

CONST (12) 

Y1(13) 

12(13) 

C0NST(13) 

Yl(lU) 

Y2(l4) 

CONST (Ik) 

Y1(15) 

Y2(15) 

CONST (15) 

EAT(O) 


EAT(l] 


EAT(2) 


EAT(3) 


delayed  input 

XIN(O) 

►  filter 
1 

- 

XIN(l) 

filter 
2 

XIN(2) 

filter 
3 

XIN(3) 

filter 
k 

Figure  6.2.1  Schematic  Showing  Use  of  Filter  Variables  and  Constants  in  ZEROC 
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Once  ZEROC  has  calculated  the  constants  for  the  four  filters 
by  iteratively  calling  INILER,  it  begins  the  processing  loop  by  zeroing 
that  portion  of  the  FINT  array  which  corresponds  to  the  current  time 
slice.   Note  that  as  is  the  standard  system  practice,  FINT  is  accessed 
as  a  single  subscripted  array  even  though  it  is  conceptually  doubly 
subscripted.   IFQPS  is  used  to  keep  track  of  the  initial  frequency 
entry  (i.e.  the  lowest  frequency)  for  the  present  time  slice. 

In  the  processing  loop,  the  input  data  is  divided  into  time 
slices  each  containing  NSAMT  samples.   These  samples  are  then  processed 
four  times,  once  for  each  frequency  region,  by  entering  the  filter 
iteration  loop.   The  iteration  loop  itself  begins  by  digitally  filtering 
the  data,  the  output  of  the  digital  filter  being  loaded  into  the  temporary 
array,  BUF.   (it  should  be  noted  that  although  this  output  is  "discarded" 
at  the  end  of  each  iteration,  the  filter  does  not  get  lost  since  it  retains 
the  necessary  end  state  condition  information  in  its  filter  variable  arrays,) 
Once- the  data  has  been  filtered,  ZEROC  calculates   its  average  value.   This 
is  necessary  since  each  filter  passes  a  different  amount  of  the  data's  DC 
component.   Then  the  zero-crossing  rate  is  calculated  using  the  average  value 
as  the  zero  level. 

Finally  the  average  magnitude  of  the  output  of  the  filter  is 
loaded  into  the  appropriate  entry  of  FINT  based  on  the  frequency  of  the 
zero-crossing  rate.   Note  that  an  empirically  determined  fudge  factor 
from  the  FMG  array  is  multiplied  times  the  average  value  before  it  is  loaded 
into  FINT.   This  is  necessary  because  the  four  versions  of  the  digital 
filter  have  varying  magnitude  factors.   The  filter  program  could  have  been 
written  to  correct  for  this ,  but  it  was  more  efficient  to  make  one  fudge  on 
the  average  value  rather  than  one  fudge  on  each  data  point  as  it  went 
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At  the  end  of  each  of  the  four  iterations  the  corresponding 
entry  of  the  REM  array  is  loaded  with  the  contents  of  PERIOD,  the  amount 
of  time  since  the  last  zero-crossing  in  the  current  time  slice.   Note  that 
this  value  will  be  restored  at  the  appropriate  iteration  on  the  next  time 
slice  before  calling  ZECPIC  to  calculate  a  new  zero-crossing  rate.   Thus 
no  information  is  lost  between  successive  zero-crossing  calculations. 

At  the  end  of  the  iteration,  note  that  if  sense  switch  2  is 
on,  a  line  of  data  will  be  printed  out  for  debugging  purposes.   After 
four  loop  iterations,  ZEROC  goes  on  to  the  next  time  slice  and  when  I TIME 
time  slices  have  been  processed,  the  subroutine  returns. 

Figure  6.2.2  gives  several  examples  of  displays  calculated  by 
ZEROC  and  produced  by  the  system  CRT  display  routines.   The  commands 
needed  to  actually  produce  the  display  after  having  moved  the  data  tape 
pointer  to  the  position  of  the  header  block  for  a  particular  speech  word  are 
as  follows : 

HEADT         Calculates  ITIME  based  on  the  time  slice 
size  and  the  length  of  the  data  word. 

FINIS         Prints  out  variable  values  and  turns  off  display. 

ZEROC 

NORMF        Normalizes  the  output  of  ZEROC 

HIEMP        Adds  high  frequency  emphasis 

SPDISP        Produces  the  picture  of  the  display 

These  displays  all  use  the  standard  values  specified  in  INITI. 
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Speaker  a 
"shod" 


Speaker  a 
"vile" 


Speaker  b 
"said" 


Speaker  c 
"said" 


Speaker  b 
ted 


Speaker  d 
"dame" 


Figure  6.2.2  Examples  of  Displays  Produced  Using  ZEROC 
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CATE   6/28/71 


THIS  ROITINB  FRODUCBS  DATA  FCR  A  ZERO-CROSSING  DIStLAY  BY 
FIRST  DIVIDING  A  TIME  SLICE  INTO  4  FREQUENCY  BANDS  BY  MfeANS 
OF  A  DIGITAL  FILTERING  PROGRAM.   NEXT  IT  ANALYZES  TME  NUM- 
BER OF  ZERO  CROSSINGS  IN  EACH  FREGUENCY  RAND  AND  COkjVERlS 
THESE  TO  FREGUENCIES.   TME  CORRESPONDING  FREQUENCIES  IN  FINI 
ARE  THEN  LOAEED  WITH  THE  AVERAGE  CF  THE  ABSOLUTE  MAGNITUDE  UF 
THE  OUTPUT  CF  THE  CORRESPONDING  FILTER  BAND. 


AVEHAG  ■ 
BUFF  ■ 
CONST   ■ 


DTIME   a 
EAT.    ■ 
XIN 


FILT 
FMG 


CSL  FORTRAN  OF  SEFT  t?68f 
SUBROUTINE  ZERCC 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


FREQ    * 
INILER  a 

ISAMF   s 
ISAMP   = 

ISAMPB  ■ 
IFl,IF2» 


IFQPS   » 
K       a 


LERNFIL* 
M       a 


average  magnitude  of  filter  cutplt, 
common  variable.  input  tata  buffer, 
constant  array  used  by  digital  filter.  1  hi  arkay 
is  e  i v i  dec  into  4  blocks  <4  words  each),  oive  block 
corfesponcing  to  each  frequency  band- 
time  pericc  between  samples. 

constant  arrays  used  by  digital  filter.  sach  array 
contains  4  entries  (beginning  at  entry  q),  one  for 
eaoh  filter, 
filter  output  buffer. 

constant  array  used  to  contain  empirically  determined 
fudge  factcrs  to  equalize  the  magnitude  of  the  outputs  of 
the  folr  filters  used  in  the  subroutine, 
freguency  corresponding  to  the  average  rats  of  zero 
crossings. 

initializing  subroutine  for  digital  ftltert  sets 
constant  arrays  according  to  desirer  edge  frequencies 
for  output  of  frequency  band, 
common  variable,  sampling  frequency, 
common  variable.  position  of  sample 
to  Tata  tape, 
common  variable 

TO  EUFF. 

CONSTANT  ARRAYS  USED  TO  CONTAIN  THE  INITIAL  A\U  FINAL 
FREGUENCY  VALUES,  RESPECTIVELY,  FOR  THE  FOUR  BANDPASS 
FILTERS  USED  BY  THE  PROGRAM  (THF  FILTERS  CORRESPONDING 
TO  THE  OTK  THROUGH  3RD  entries  in  EACH  ARRAY).   the 
NEGATIVE  VALUE  FOR  iFl <  0  >  WAS  CHOSEN  SO  THAT  T«E  INITIAL 
FILTER  WOLLD  HAVE  A  FLATTER  FREQUENCY  RESPBNSE*  SINCE  IT 
IS  ACTUALLY  A  LOW  PASS  RATHER  THAN  A  BAND  BASS  FILTER. 
ADDRESS  WITHIN  FINT  OF  TF-E  FIRST  FREQUENCY  ENTRY  IN  THE 
CURRENT  TIME  SLICE. 

INDEX  FOR  FILTER  LOOPS,   IT  IS  USED  TO  KEER  TRACK  UF  THE 
FILTER  BEING  USED  AND  TO  ADDRESS  F  I L TER-SP6C I F *C  CONSTANTS 
AND  VARIABLES  SUCH  AS  I  V\ ,  I  F2 , FmG > E AT ,  ETCi 
INDEX  FOR  FILTER  DATA  ARRAYS.   IT  IS  USED  TO  KhEP  1RACK 
CF  THE  INITIAL  POSITION  CF  THE  DATA  ARRAYS  USEU  BY  THE 
FILTER  PROGRAM,  SUCH  AS  U,  Y2»  AND  CONST.   L  IS  INCRE- 
MENTED BY  4,  IE.  THE  LENGTH  CF  THE  cATA  ARRAYS*  EACH  TIME 
A  NEW  FILTER  IS  TO  BE  USED. 
DIGITAL  FILTERING  SUBROUTINE. 

ADCRESS  IN  FINT  CORRESPONDING  TO  THE  ZERO  CROSSING 
FREGUENCY. 


pointsr  relative 


position  of  sample  pointsr  rblative 
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00003 
00010 

00022 
00024 
00025 


CSL  F 
C 
C 
C 
C 
C 
C 
C 

c 
c 


ortran  of  seft  1?68,  cate  6/28/71 

nzcrs  ■  nukeer  of  ?fjrc  crossings  in  current  time  slice  al 
current  frequency  band. 

period  a  common  variable.  period  of  time  in  current  time  slice 
after  last  zero  crossing  in  current  frequency  band, 

timpd  ■  tike  per  time  slice  which  contains  the  zerq  crossings 
actlally  tcunted. 

y1.y2.  ■  intermediate  cata  for  digital  filter.  each  arkay  is 
Civ  I cec  Into  a   blocks  (4  worcs  fach)  one  bl-ock  COR- 
RESPONDING TO  EACH  FREQUENCY  BANC. 

TITLE* 

DIMENSION  Bl.F(256).  C0NST(15)»  EAT<3)»  FlLT(256)#  I  K  i  (  3  »  , 

1  IFZC3).  FEPC256).  REM<3),  XlN<3>»  Yl<l5). 

2  V2(l5).    FH3<3) 
DATA(IFK0)»    -97,    900.22  00*35  00) 
DATA(IF2(0>sl000.2P00.4000»70UO) 
DATA<FMG<0>*. 909. 1.64.1. 56*3.03) 

EQLIVALENCE  (BUF(l)»A(3002)).(PER(l),A(4n02)),(FILT<l)»A(<»30^)) 

INITIALIZE  THE  FOLR  FILTERS  iSED  BY  ZEKcC,  CALLULAlE  THfc 
NEEDED  CCNS7ANTS.  AND  ZERO  OUT  THb  REH  ApRAY. 

L    -    0 

DO    5»     K=0#     2 

CALL     IMLER(  IFl(K)  .     IF2(K),     BUF,     FlLT,     Yt<L)»     Y2<L)» 
1  CCNSTd   ) .     EAT(K),     XIN(K) ) 

L     s     L     +     4 

CONTINUE 

TIMPD    =    NSAM*CT  IMF 


00027 
00033 


00035 
00041 


00044 
00053 


00055 
00057 
000*7 
00074 


10 


100 


ISO 


DO  in*  K=0»  3 
REM ( k  )  =  0.0 

BEGIN  LCCP  TC  FR0C6SS  ITlME  TIME  SLICES. 

DO  500*  -  =  1*  I T IME 
IFQP9  =  (to-l)*IFMA)r  ♦  1 

ZERC  OLT  THE  FREQUENCY  ENTRItS  IN  F  I N  T  cORRbSPGNU I NG  1U  t  Mb 
CURRENT  TIME  SLICE. 

DO  100.  KsIFCPS,  ( IFQPS+IFREQ-1  ) 
F  INT(K  )  =  0  .0 

DETERMINE  THE  AVERAGE  VALUE  CF  THE  CLRRENT  TIMta  SLICE 
AND  LOAD  6UF  UlTH  THE  INPUT  DATA  (WITH  ItS  DC  COMHONENT 
REHOVED)  . 

CALL  ADJLS2(NSAHT»  -J.) 

CALL  AVEMG(ElFF<  JcamPB)  ,  0.0*  NSAMT,  AVP) 

DO  150 1  Ks0 »  (NSAMT-1  ) 

BUF(K)  =  EUFF ( ISAMF£*K)  -  AVE 

BEGIN  FILTER  '.COP  TO  PROCESS  DATA  THROUGH  EACH  UH   I  Mb 
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CSL 
C 
C 


ORTRAN  OF  SEPT  1568,   C*TE   6/28/71 
FOUR  FILTERS. 

L  ■  0 

DO  400.  K«0i  3 

CALL  LERNFlLtX.  NSAMT,  BUF.  FILT,  Yi(L), 
1  Y2(L)»  CONST(L),  EAT(K),  xlN(K)) 

L  ■  L  ♦  4 
PERIOD  «  REMK) 

NEXT  CALCULATE  THE  NUMBER  OF  TIMES  THE  FILTERED  SIGNAL 
CROSSES  ITS  AVERAGE  VALUE  LINE.   NOTE  THAT  IN  THE  CALL  10 
ZECPIC,  FER  IS  USEC  AS  A  DUMMY  ARMY  TO  CONTAIN  THE  OUTPUT 
PRCDUCED  BY  THE  CALL.   THIS  DATA  IS  NCT  USED  HOWEVER,  SiNCE 
WE  ONLY  NEED  THE  NLrBER  OF  ZERO  CROSSINGS  ANT  NOT  THE  PUSI- 
TICNS  WHERE  THEY  OCCURRED. 

NOTE  ALSO  THAT  SINCE  THE  DATA  FROM  FlLT  IS  BOTH  ♦  AND  -» 
-1000  IS  LSEC  AS  THE  ZERO  LEVEL  IN  AVEMAQ,  SC  THAI  AND  AVERAGE 
VALUE  CAN  BE  CALCULATED  INSTEAD  OF  AN  AVERAGE  MAGNITUDE- 


350 


371 
373 


375 

400 
500 


CALL  AVEfAG(FlLT, 
AVE  =  AVE  -  1000. 
CALL  ZECFIC(FILT, 


-1000..  NSAMT,  AVE) 

AVE,  NSAMT,  PERi  PER,  NZCRS> 


CALCULATE  THE  FREGUENCY  CORRESPONDING  TC  THE  NUMBER  OF 
ZERO  CROSSINGS  DETECTED,  AND  CALCLLATE  THE  FINT  ENTRY  CORRESPOND- 
ING  TO  THIS  FREGUENCY  AND  TIME. 


FREQ  =  0.5*N2CRS/(REM(K) 
M     r  FREQ/CELF  ■♦  IFQPS 


♦  TIMPD  -  PERIOD) 


CALCLLATE  THE  AVERAGE  MAGNITLDE  CF  ThE  cUTPUl  OF  THE  DIGITAL 
FILTER  AND  ENTER  THIS  NUMBER ( CORRECTED  FnR  THE  RELATIVE  GAIN. OF  THE 
FILTER)  IN  TFE  FINT  ENTRY  CORRESPONDING  TC  ThE  FREQUENCY  OF  THE 
NUMBER  OF  DETECTED  ZERC  CROSSINGS. 


CALL  AVEfAG(F  JLT, 
FINT(M)  =  FIiNT(M) 
REM(K)  s  FEFICD 

if  (sense  switch  2) 

ITMP  =  M  -  IFQPS  ♦  1 
FTHP  a  AVMG*FMG(K) 
PRINT  375,  w.  FREQ, 
FORMAT  <3H  w«,  1 6  *  7H   r 
L   8H   AVMAG«Ffi,i.2X»F8.3> 
CONTINUE 

ISAMP  =  iSAfF  ♦  IDFLT 
CONTINUE 
RETURN 
END 


AVE,  NSAMT,  AVMAG) 
♦  AVMAG*FMG(K) 


373,  400 


ITMP,  FTMP,  AVE 


i-p,  i-  1  Mr ,  AVE 

FREQ«,F12.1»  2X,2HM».I6' 
) 


!AN 


100 


6.3  FORMEX 

This  subroutine  is  used  to  process  the  output  of  the  SPECTO 
subroutine  once  it  has  been  normalized  and  to  extract  the  formant  structure 
from  it.  After  determining  the  formants,  it  clears  the  FINT  array  so  as  to 
leave  only  the  formant  peaks  to  be  displayed. 

The  subroutine  iteratively  processes  each  time  slice  individually. 
Thus  the  subroutine  consists  of  one  huge  loop  which  is  repeated  until  ITIME 
time  slices  have  been  processed.  The  loop  begins  by  searching  the  time 
slice  for  its  frequency  component  peak  magnitudes.   This  search  must  be 
performed  a  second  time  on  the  results  of  the  first  search  to  get  the  actual 
peaks,  since  the  first  search  only  produces  a  frequency  magnitude  envelope. 
The  processing  of  a  typical  time  slice  is  shown  in  figure  6.3.1.   Note 
that  the  initial  peak  picking  operation  will  always  produce  an  envelope 
consisting  of  all  the  minor  peaks  in  the  display.  These  minor  peaks  are  the 
various  harmonics  of  the  voice  pitch  frequency  and  are  characteristic  of 

voiced  speech. 

As  is  the  general  characteristic  of  the  system,  FINT  is  treated 
as  a  singly  subscripted  array  throughout  the  loop.   IFQPS,  the  position  of 
the  first  frequency  component  i.e.  lowest  frequency)  of  the  particular  time 
slice,  is  calculated  at  the  beginning  of  each  pass  through  the  loop  and  this 
value  is  then  used  throughout  the  remainder  of  the  loop  to  determine  positio: 

in  FINT. 

After  calling  the  peak  picking  programs  twice,  FORMEX  has  to  un- 
tangle the  problem  of  indexes,  since  PEAPIC  returns  the  index  value  relativ 
to  the  array  specified  as  the  input  and  on  the  second  call  the  input  array 
is  the  output  of  the  first  call.   This  means  that  the  values  in  the  INDX2 
array  refer  to  positions  in  PBUF1  instead  of  in  FINT.   Thus  FORMEX  must  do  ar 


or 
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Initial  Spectrum  Analysis 
of  Time  Slice 


First  Pass  Selects  All 
Peaks  Due  to  Pitch  Harmonics 


Second  Pass  Selects 
Potential  Formants 


Final  Formant  Selection 


Figure  6.3.1  Effect  of  the  Peak-picking  Process 
on  the  Spectrum  Analysis  of  a  Single  Time  Slice 
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"indirect  address"  access  to  the  INDX1  array  to  get  the  peak  positions 
relative  to  FINT. 

Once  the  proper  peak  positions  have  been  loaded  into  INDX2, 
the  data  in  FRMAG  and  INDX2  are  sorted  on  the  basis  of  the  magnitude 
values  in  FRMAG.   If  the  largest  frequency  component  magnitude  is  too 
small  to  display,  there  is  no  further  need  to  process  the  time  slice 
and  FORMEX  goes  to  the  next  one.   If  it  is  large  enough  to  be  displayed, 
and  it  is  above  3500  cps  (this  is  determined  by  its  corresponding  position 
in  FINT  and  the  frequency  spacing  between  frequency  magnitude  samples  in 
FINT),  the  time  slice  is  classified  as  a  pure  friction  time  slice  and 
no  further  extraction  is  performed. 

If  the  largest  magnitude  frequency  component  is  over  the 
minimum  magnitude  displayed  and  under  3500  cps,  the  time  slice  is  classified 
as  a  formant  time  slice.   It  should  be  kept  in  mind  however,  that  there  may 
still  be  a  significant  amount  of  friction  in  the  higher  frequencies. 

The  formant  processing  assumes  that  only  the  four  largest 
frequency  magnitude  components  are  formant  candidates.   In  addition,  if  it 
turns  out  that  the  fourth  largest  magnitude  is  less  than  half  the  size  of 
the  third  largest,  the  fourth  largest  is  also  discarded.   This  comparison 
of  the  two  smallest  formant  candidates  is  repeated  until  the  smallest 
candidate  is  greater  than  half  the  size  of  the  second  largest.   Finally, 
any  remaining  candidates  over  U000  cps.  are  eliminated  since  it  is  unlikely 
that  a  formant  would  appear  above  that  frequency. 

Once  the  formant s  have  been  picked,  the  FINT  time  slice  is  zeroed 
out  beginning  at  the  lowest  frequency  component  and  continuing  up  to  the 
second  entry  higher  than  the  highest  frequency  formant.   Then  only  those 
magnitudes  corresponding  to  the  selected  formant s  are  reloaded  into  FINT. 
This  technique  retains  the  highest  frequency  components  of  the  time  slice 
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and  thus  does  not  destroy  any  high  frequency  fritction  "which  may  be  present. 
Note  that  the  magnitudes  of  the  formants  are  doubled  when  they  are  replaced 
in  FINT.   This  allows  them  to  stand  out  more  forcibly  in  the  display. 

Once  the  time  slice  has  been  reloaded,  FORMEX  proceeds  to  the 
next  time  slice  and  when  ITIME  time  slices  have  been  processed,  it  returns. 

Figure  6.302shows  several  examples  of  spectrographic  displays  which 
have  been  processed  by  FORMEX  to  extract  their  formants.   They  have  been 
produced  using  the  system  CRT  display  routines.   The  commands  needed  to 
actually  produce  the  display  after  having  moved  the  data  tape  pointer  to 
the  position  of  the  header  block  for  the  particular  speech  word  are  as  follows: 

HEA1XT         Calculate  ITIME  based  on  time  slice  size  and 

the  length  of  the  data  word. 
FINIS         Print  out  the  variable  values  and  turn  off  the 

display. 
SPECTO 

NORMF        Normalize  the  output  of  SPECTO 
HIEMP         Add  high  frequency  emphasis 
FORMEX        Extract  formants 
SPDISP        Produce  the  picture  of  the  display. 
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Speaker  a 
"shod" 


Speaker  a 
"vile" 


Speaker  b 
"said" 


Speaker  c 
"said" 


Speaker  b 
"ted" 


Speaker  d 
"dame" 


Figure  6.3.2  Examples  of  Displays  Produced  Using  FORMEX 
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FORTRAN  OF  SEFT  1568, 
SUBROUTINE  FQR^EX 


CITE   6/28/71 


THIS  SlEROlTlKE  TAKES  THE  OUTPUT  OF  SPECTO,  1 E  i  A  I  I  ME  VS. 
FREQUENCY  INTENSITY  ARRAY.  AND  PROCESSES  IT  TO  EXTRACT  I  Ht  FORMANT 
PEAKS.   THE  •EXTRACTION  IS  PERFORMED  BY  FtNDInG  TMfc  MAJCR  FRfcUUbNCY 
PEAKS  IN  EAOF  TIME  SLICE  AND  THEN  ELIMINATING  THOSE  WHICH  ARE  TOO 
SMALL  OR  WHOSE  FRECLENCIES  ARE  TOC  HIGH  TC  BE  FORMANTS. 

DELF   =  CCMMCN  VARIABLE.   FREQUENCY  DIFFERENCE  BETWiEN  tREQUENCY 
MGMTUCE  FNTRlES  IN  FINT, 

FINT   s  CCMMCN  ARRAY.   CONTAINS  FREQUENCY  COMPONENT  MAGNITUDES. 

FINTM  s  CCMMCN  VARIABLE.   MINIMUM  INTENSITY  WHICH  WlLL  tit    DIS- 
PLAYED BY  THE  DISPLAY  ROUTINE, 

FQMAX  a  FREQLENCY  CF  THE  LARGEST  MGNlTUDE  FcRKANT  UANClDATt. 

FRMAG  s  TEMPCRARY  BUFFER  USED  TO  HOLD  PEAK  MAGNlTUDiS  CF  FOHMANT 
CANDIDATES. 

FRHPT  =  SLBRCUTINE.   USED  TO  PRINT  OUT  FoRMANTS  OH  K0RMAN1 
CANDIDATES. 

IFMAX  =  CCMh-CN  VARIABLE.   MAXIMUM  NUMBER  CF  ENTRIES  ALC'MG  THE 
FRBC'LENCY  DIMENSION  IN  FINT.   USFC  TC  CALCULAIE  SUB- 
SCRIPTS IN  FINT. 

IFCPS  =  CCMMCN  VARIABLE.   INITIAL  FREQUENCY  POSITION  W I  1 H IN  FINT 
FCR  THE  CURRENT  TIME  SLICE.   USED  TO  CALCULATE  SUBSCRIPTS 
IN  FINT, 

IFREO  =  CCMKN  VARIABLE.   NUMBER  CF  FREQUENCY  ENTHliS  IN  DISPLAY. 

INCX1  =  TEMPCRARY  ELFFER  USED  TO  FOLD  INDEX  F0SIT10NS  CF  PEAKS  IN 
FINT  . 

INCX2  =  TEMPCRARY  ELFFER  USED  TO  FOLD  INDEX  POSITIONS  OF  FOHMANT 
CAND IDATES. 

LlMi   =  LAST  ENTRY  LSED  IN  PBUFi  AND  INDX1- 

L I M2   =  LAST  ENTRY  LSED  IN  FRMAG  AND  INDX?. 

NFCRM  =  NLMEER  CF  FORMANTS. 

ORDER  =  SLBRCUTINE.   USED  TO  SORT  MAGNITUDE  AND  INDiX  ANRAYbl 

PBLFl  =  TEMPCRARY  BUFFER  USED  TO  FOLD  PEAK  MAGNITUDES. 

TITLE* 

DIMENSION  PBLFK50).  FRMAG<25>» 

iN'CXi(go),  INDX2<25> 
EQLIVALENCE  (PBLFld),  A<101>> 

(FRMAG(l).  A(20D) 

<INCX2<1).  A(40l>> 
DO  300.  1  =  1*  I T I  ME 
NFCRM  =  4 
IFCPS  =  ( 1-1  )*IFMAy  ♦  i 

USE  FEAFIC  T^  ICE  TO  EXTRACT  THE  PEAK  FREQUENCY  VALUES  AND 
POSITIONS.   THESE  FEAK  FREQUENCIES  ARE  THE  INITIAL  FORMANT  LANUIDATfcS 


(  INDXKi)  ,  A(301>  >> 


CALL  PEAFIC(F I  NT ( IFCPS) 
CALL  PEAF IC(FBUF1,  LIM1 
PRINT  50'  I»  L  IMi  ,  L IM2 
FORMAT  (///11H  TIME  SLICE, 3  I  5  > 
DO  io»  J  =  l«  L IM2 


IFREQ.PBuFl,  INDXi.LIM) 
FRMAG,  INDX2»  L  T  M2 ) 
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CSL  FORTRAN  OF  SEFT  1*68,   HATE   6/28//1 


00045 


00052 


00060 


00065 
00072 


00075 
00103 
00107 


OOltO 


00121 
00124 


00135 
00142 
00145 
00146 


10 


100 


140 


200 


240 


C 
C 

c 

00126    250 
C 

c 
c 

c 


251 
2^2 


IMCX2U)  «  I*DXiMKEX2<J>> 

SORT  PE*K  MAGMTUCES  IN  ORDEH  OF  HIGHEST  TO  LOhEST 
VALUES. 

CALL  ORDER(FPMAG,  INDX2#  LlM2»  0,  0) 

NEXT  CLASSIFY  THE  TIME  SLICE  ACCORDING  TO  THfc  MAliMTuDfc  AND 
FREQUENCY  VALUES  OF  THE  PEAKS.   IF  THE  LARGEST  MAGNITUDE  IS  100 
SMALL  TO  BE  <C  ISFLAYED,  GO  TO  THE  NfcXT  TIME  SLICE, 


IF  (FRMAG(l)  -  F  I  NTH  ) 


300.  300,  100 


1Mb 


IF  THE  LARGEST  FREQUENCY  COMPONENT  IS  APOVE  3500  CHS 
TIKE  SLICE  IS  CLASSIFIED  AS  FRICTION,  IE.  S,  F,  T*  fcTC. 

IF  THE  LARGEST  FREQUENCY  COMPONENT  IS  LFSS  THAIS  4500  CHS., 
THE  TIME  SLICE  MY  STILL  CONTAIN  FRICTION).   IN  THIS  CASb,  PKO- 
CESS  THE  TIKE  SLICE  FOR  FORMANTS  FIRST. 

FQMAX  =  INDX2 (1)#DFLF 

IF  (FQMAX  -  3  5  00.)     200,  200,  140 

PROCESSING  OF  A  FRICTION  T I  Mb  SLICE. 

IN  THIS  CASE  PRINT  OUT  ALL  OF  THE  PPAKS  IN  OHD6R  Ct-     IHfclH 
FREQUENCIES  AND  GO  TO  THE  NEXT  TINE  SLICC 

CALL  ORDER(FFfAG,  INDX2,  LlM2»  1«  D 
CALL  FRMFT(FFMG.  TNOX2,  LlM2> 
GO  TO  300 

PROCESSING  OF  A  FCRMANT  TIME  SLICE. 
BEGIN  wITh  THE  FOUR  LARGEST  FORMAM  CANDIDATES.   LHfeCK  l Ht  bl/t 
OF  THE  4TH.  LARGEST  AS  COMPARED  TC  THE  3RD.  LARGEST, 

IF  ( F R M A 6 ( 3 )  -  2.0*PRMAG(4))  250.  2  5  0  »  240 

IF  THE  SMALLEST  OF  THE  POTENTIAL  FORMNTS  IS  LtSS  IHAN  MALh 
ThE  SIZE  CF  ThE  NEW  LARGEST  FORMANT,  ELIMINATE  IT, 

FRKAGU)  =  0-0 
NFORM  =  NFORN  -  l 

ORDER  FCRMANT?  BY  FREQUENCY. 

CALL  ORDER(FFMAG,  INDX2,  NFORM,  l,  i) 

Eliminate  any  formants  above  4000  cps  since  t- okman  i  s 

SHOULD  NCT  EE  THAT  UGH. 

FQMAX    =     UDX2  <NFORM*DELF 

IF     (FQMAX     -    4Q00.)  254.     254,     252 

NFCRM    =    NFORK     -    i 
GO    TO    251 
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11.50 


CSL    FORTRAN    OF    SEPT    1*68,       TATE      6/28/71 
C 
C 
C 

254 
C 
C 
C 
C 
C 


PRINT  OLT  THE  FORHANTS. 

CALL  FRMPT(PPMG,  INDX2,  NFORM) 

THEN  ZERO  CUT  THE  TIME  SLICE  UP  TO  THE  SECONU  fcRbQUENCY 
ENTRY  ABCVE  THE  HIGHEST  FORMANT  AND  ONLY  FILL  IN  1H8SE  LOWfcH 
FREQUENCY  ENTRIES  CORRESPONDING  TC  FORMANT  FREQUENCIES. 


INCX2(NF0RM)  + 
JF  INI 


11.54  JF  INI  *     IFQFS  * 

1(60  DO  255.  wbIFCPS, 

11.65  255     FINT(J)  3  O.C 

R.67  DO  260»  w»l,  NFORM 

)(73  M  ■  IFQPS  -  i  ♦  INrX2(J> 

)(75  FIM(M)  =  2,0*FRMAG<J) 

)( .77  2'0     CONTINUE 

Mini  300  CONTINUE 

)C02  RETURN 

K!  03  END 

■FlRTRAN 
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6,k     FRMPT  (FRMAG,  INDX2 ,  NFORM) 

This  is  a  short  subroutine  used  exclusively  by  FORMEX  to 
print  out  lists  of  formants  or  formant  candidates.   FRMAG  is  an  array 
containing  magnitudes,  INDX2  is  an  array  containing  index  positions,  and 
NFORM  specifies  the  number  of  formants  to  be  printed  out. 
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CSL  FORTRAN  OF  SfcFT  1568,   CATe   6/28/71 

SUBROUTINE  FRMFTCFRMAfi,  INDX2.  NFORK) 
C 
C 
C 
C 
C 
C 


00004 
00011 
00013 
00023 

00023 
00024 
00025 
-FORTRAN 


50 


100 

200 
300 


THIS  91ER0LTIM  IS  USED  BY  FCRMEX  To  PRINT  OUT  THE  FURMANl 
FREQUENCIES  AND  THFIR  VALUES.  EACH  FORMaNT  IS  PHINTEU  UUT  GIV- 
ING ITS  MMEER,  FRFCUENCY  INDEX,  ►REQIENCY  VALUE,  A&D  HAGNHUUfc 
AFTER  NFCRM  FQRKANTS  HAVE  BEEN  PRINTED,  THE  SUBROUTINE  WE1URNS. 


TITLE* 

DIMENSION  FRfAG(i).  INDX2(D 

IF  (SENSE  SWITCH  2)     50,  300 

DO  200.  w«l#  NFCRM 

FRFRO  =  INDX2( J)*DELF 

PRINT  100,  <w«  INDX2(J),  FRFRQ,  FRMG<*) 

FORMAT  <5H  FCRMANT  , I  3 #2X , 14HFREG  ,  SLICE  = 

7HFREG.  «,F?,0«2X,8HMAGNIT.s,Fio.3) 
CONTINUE 
RETURN 
END 


13, 2X, 
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6.5   PYRON 

This  subroutine  is  used  to  generate  x-y  speech  displays  of 
the  type  described  by  Pyron  and  Williamson  [1965].   Basically  these  displays 
plot  a  zero-crossing  rate  vs.  the  amplitude  envelope  of  the  speech  signal. 
Sense  switch  3  is  used  to  select  one  of  two  options.   If  sense  switch  3  is 
up,  the  routine  will  produce  a  plot  using  the  zero-crossing  rate  of  the 
original  speech  signal,  Z  ,  while  if  sense  switch  3  is  down  it  will  produce 
a  plot  using  the  zero-crossing  rate  of  the  derivative  of  the  speech  signal 

V 

The  subroutine  takes  its  data  from  BUFF  and  processes  it  in 
"time  slices"  although  this  term  does  not  have  the  same  significance  that 
it  does  in  the  case  of  programs  such  as  SPECTO.   In  effect,  the  time  slice 
(which  contains  NSAMT  data  samples)  is  merely  a  convenient  processing  unit 
for  the  various  routines  used  by  PYRON.   At  any  rate  after  setting  up  the 
various  constants  and  filters,  PYRON  enters  its  main  loop  which  processes 
ITIME  of  these  slices. 

The  main  loop  is  divided  into  two  sections,  one  to  process  the 
y  input  for  the  display,  i.e.  the  Z  signal,  and  one  to  produce  the  x  input, 
i.e.  the  amplitude  envelope.   The  y  input  processing  begins  by  placing  the 
data  to  be  processed  in  the  ZBUF  array.   In  the  Z   case  (i.e.  Sense  switch 
3  is  up)  this  simply  involves  loading  the  time  slice  data  from  BUFF  to 
ZBUF.   In  the  Z   case,  the  subroutine  DIFFER  is  called  to  differentiate  the 
data  in  BUFF  and  load  it  into  ZBUF. 

Next  a  threshold  check  is  made  on  the  data  in  ZBUF.   If  its 
average  magnitude  deviation  about  its  average  value  is  less  than  5.0  the 
time  slice  most  probably  is  simply  noise  with  no  speech  signal  present 
and  the  program  skips  the  processing  and  proceeds  to  the  next  time  slice. 
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This  threshold  detecting  allows  the  program  to  eliminate  the  "blank 
spaces"  before  and  after  words,  since  these  regions  would  still  have  a 
definite  zero-crossing  rate  even  though  their  amplitudes  were  small  and 
would  thus  produce  obscuring  garbage  on  the  display.   It  should  be  noted 
that  in  this  particular  case,  the  size  of  each  time  slice  would  make  a 
difference  in  how  much  of  the  non-signal  data  is  eliminated,  since  a  large 
time  slice  with  only  a  small  amount  of  signal  at  the  end  would  be  processed, 
whereas  if  it  were  broken  up  into  smaller  time  slices  only  the  last  one 
would  be  processed. 

If  the  input  magnitude  is  large  enough  to  be  processed,  the  data 
is  first  used  to  obtain  the  Z  signal.   To  do  this  the  data  is  sent  through  the 
ZECPIC  subroutine  whose  output  ABUF  then  contains  the  length  in  seconds  of 
the  successive  zero-crossing  intervals.   PYRON  then  zeros  out  ZBUF  and 
inserts  impulses  in  it  at  intervals  approximating  the  positions  of  the 
zero-crossings.   Finally  the  pulses  are  sent  through  a  smoothing  filter,  i.e. 
the  subroutine  ENVLP,  to  obtain  a  buffer  containing  the  successive  samples 
of  the  smoothed  Z  signal  output. 

In  order  to  have  a  full  scale  deflection  on  the  display  represent 
about  6000  zero-crossings  per  second  while  using  a  smoothing  filter  with  a 
response  time  of  10  ms.  (these  are  the  values  used  by  Pyron  and  Williamson), 
we  need  to  adjust  the  amplitude  of  the  impulses  generated  by  the  zero- 
crossings.   If: 

A  =   amplitude  of  the  impulse  produced  by  a  zero-crossing 
n  =  the  number  of  zero  value  samples  between  crossings 
A'  =  full  scale  deflection  at  6000  crossings/sec. 
"then  at  equilibrium  with  a  3000  cps  input ,  the  value  of  the  decayed  output 
after  n  zero  valued  samples,  A',  will  be: 
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A1  =  (Amplitude  after  last  pulse)  x  (decay  factor  for  1  sample) 

=  (  (l-e-°01)  A  +  e-°01  A'  )  x  (e-001)n 

=  (.0Q5A  +  .995  A')  x  .995n 

But  at  6000  zero  crossings  per  second  (using  a  20  KC  sampling  rate) 
there  will  be  3.3  samples  per  crossing  or  2.3  zero-value  samples  per 
crossing.   If  we  let  A'  =  1000  (full  scale  deflection  is  actually  1024) 
then  we  get: 

1000  =  .989  (.005A  +  995.) 
1000  =  .00U99A  +  984 
16  =  .00U99A 
or  A  55  3200 

and  empirically  this  turns  out  to  give  a  reasonable  display.   Figure  6.5.1 
shows  an  example  of  the  output  of  the  zero-crossing  rate  detector. 

Obviously,  the  Z  signal  could  have  been  produced  much  more  simply 
directly  from  the  output  of  ZECPIC.   However,  the  present  method  was  chosen 
because  it  was  directly  analogous  to  the  method  used  by  Pyron  and  Williamson 
in  their  hardware  implementation  of  the  display  and  would  therefore  hopefully 
contain  the  same  quirks  and  peculiarities  as  theirs. 

In  order  to  produce  the  amplitude  envelope  the  data  is  first 
half-wave  rectified  and  then  sent  through  a  smoothing  filter.   In  this  case 
the  smoothing  filter  was  adjusted  to  have  a  rise  time  of  1  ms.  and  a  fall 
time  of  25  ms.   Figure  6.5.2  gives  an  example  of  the  filter's  operation. 
Pyron  and  Williamson  [1965]  specify  a  5  ms.  rise  time  but  this  was  an  empirical^ 
determined  value  and  in  the  present  case  1  ms.  seemed  to  work  better.   The 
successive  output  samples  of  the  filter  routine  are  loaded  into  the  ABUF 
array. 
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Figure  6.5.1  Zero  Rate  Output  Used  as  X  Input  to  PYRON  Display 


llU 


Figure  6.5.2  Amplitude  Envelope  Output  Used  as  Y  Input  to  P"RON  Display. 
Superimposed  on  Speech  Signal  Input. 
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The  final  operation  in  the  time  slice  is  to  plot  the  Z  signal 
vs.  the  amplitude  envelope.   This  is  done  using  the  DISSY  subroutine. 
Then  a  photograph  is  taken  of  that  section  of  the  display,  the  data  pointer 
is  updated,  and  the  subroutine  moves  on  to  process  the  next  time  slice. 

It  should  be  noted  that  throughout  the  subroutine,  sense  switch 
2  is  used  to  indicate  the  debugging  mode.   If  it  is  on,  then  at  various 
stages  in  the  subroutine  the  intermediate  data  will  be  displayed  and/or 
printed  out. 

Figure  6.5.3  shows  several  examples  of  Z-,  vs.  amplitude  displays 
while  figure  o,5.k   shows  examples  of  displays  of  Zp  vs.  amplitude.   The 
commands  used  to  produce  the  display  after  having  moved  the  data  tape 
pointer  to  the  position  of  the  header  block  for  the  particular  speech 
word  are : 

HEADT         Calculate  ITIME  based  on  time  slice  size 

and  the  length  of  the  data  word. 
FINIS         Print  out  the  variable  values  and  turns  off 

DISPLAY. 
PYRON 

The  "time  slize  size"  is  not  especially  critical  in  these 
displays  but  was  kept  at  1000  for  the  pictures  in  figure  6.5.3  and 
6.5.U. 
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Figure  6.5.3  Examples  of  Z  vs.  Amplitude  Envelope  Displays  Produced 
by  PYRON 
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Speaker  a 
"shod" 
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"vile" 
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"said" 
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ted 
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Figure  6.5.U  Examples  of  Z  vs.  Amplitude  Envelope  Displays  Produced 
by  PYRON 
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rATF   8/12/71 
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TUDE  E 
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R  DIFP 
ZBUF", 
CYCLE. 


0  C  IF 

OLT 
FCLL 
NVELO 
DEBUG 
UP,  T 
ED  Uu 
S  LSE 
ER6NT 
(IE. 


RATE  SPEECH  DISPLAYS  OF   HE 
ON.   IF  SENSE  SWITCH  6    lb  UP, 

AMPLITUDE  ENVELOPE  DISPLAY 
SWIIOP  i  IS  DOWN,  IT  WILL 
DlSPlAY.   Zl  IS  PROPORTlUNAL 
HE  SpEECh  SIGNAL  ITSELF,  WH1L 
ZERO  CROSSINGS  IN  THh  DtrtlVA- 

FERENT  S^CCTHlNG  FlLlERb,  ONE 
THE  SPIKES  PRODUCED  AT  fcACH 
OW  THE  RFCTIF1ED  SPEECH  iN- 
PE. 

GING  FEATURE  UTILIZING  btNbk 
HE  PrCGRaK  WILL  DISPLAY  UN 
RING  EACH  PROCESSING  CYCLE. 
D,  It  HIl. L  ALSO  DISPLAY  i  Hfc 

I  at  Ion  -  F  inally,  it  prints 

THE    AVERAGE    ZERO    CRUSSifvG 


AVE 
AVEm 
BFi,HF? 
BRl ,HR^ 
PUFF 
1.J  T  I  M  P 
E  A  F  -T  . 

FAF? 
EART. 

EAR? 
F  TNP 

ISAMD 

ISAMPP 
ISCOPj 
IT  IMP 
N  S  A  M 1 
MZCR   = 
Xb     = 
Yl,VP  = 

ZBLF 


BUFFER  USFC  TC  CONTAIN  THE  SAMPLES  cF  THh  AMPLlTUbt 

fnvEloff. 

AVERAGE  VALUE  CALCULATED  by  AvEmAG. 

AVERAGE  MAGNITUDE  CALCULATED  BY  AVEMAG. 

FALLING  SIGNAL  COEFFICIENTS  USED  bY  ENVLP. 

RISUG  SlGNAi   CCEFFICENTS  USED  RY  ENVLP. 

CAT*  BLFFFR. 

T  I  f-P  BETWEEN  CATA  SAMPLES. 

FALL  TIME  CONSTANT  USED  BY  ENVLp 


=  RISE  TIME  CONSTANT  USED  fcY  ENVLP. 

=  TENFCRARY  FLOATING  POINT  VARlAbLE 

THE  PAXlMif  X  VALUE  FOR  C  I SSY  . 
=  FOSITICN  CF  THE  DATA  POINTER  WlTP 

DATA  TAPE. 
=  FOSITICN  CF  TPE  DATA  POINTER  WlTP 
=  CISFLAY  Bl FFFR  FOR  DISSY. 
=  NUNtER  OF  TIME  SLICES  TO  BE  PROCESSED. 
=  NUNEER  OF  SAMPLES  TO  BE  FROCESSFC  PER  TIME 
NLMEER  CF  7ERO  CROSSINGS  FOUND  By  ZCfiFIC. 
LLMNY  VARIaELF  USED  BY  DISSY. 

VARIABLES  t SED  BY  ENVLP  TC  SAVE  |ASr  DATA  POINT 
PROCESSED  FY  FILTER. 
=  BUFFER  USFC  TC  CONTAIN  TPE  SAMPLES  CF  THE  ZERC  CRObSING 
RATE  . 


USED  TO  CONTAIN 
RESPECI  TO  THE 
RFSPECI  TO  BUFF 


SLICE 


TITLE* 

DIMENSION  AELF  (40  On  ) 

FGUI vALENCE  (ABLF(r) 


ZBuF(4000  ) 
A  ( 1. 1  0  0  2  )  )  > 


(ZBUF(O),  A(1500d>> 
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CSL  F 
C 

c: 


ORTRAN  OF  SEFt  1$68,   TJA  E   8/12/71 

INITIALIZE  CONSTANTS  AND  SET  UP  FILTER  PARAMbTbRb. 

CALL  lFlLT(lG.a,NSAM,10.0»BRl»EAfir,BFi,BAFT,Yl) 

CALL  IF1LK  1  .0.NSACT.25  .  0»BR2,BAP2,BF2,PAF?. Y2) 

PERIOD  =0-0 

X6  r  0.0 

Yl  s  50U  . 

Y2  =  0.0 

FTMP  =  Nb  AMT 

PWOCESS  I  T  I  ME  TIME  SLICES. 

J'O  ?09.  1=1,  ITIME 
TALL  AHJLS2('vSAyT,  -±) 

CHbCK  SENSE  SuITCh  3  TO  DETERMINE  ThE  TyFE  OK  PLOT  10  bt 
P  R  C  D  U  C  F  D  . 


2t) 


2  6 
2  7 


34 

3  b 


'«o 


<o 


IF  (SE-NSt  SklTCH  3> 


26,  30 


FOR  A  21  VS.  AMPLITUDE  ENVELCPE  PLOT,  TAKE  ThE  DATA  DIHbCILY 

FROM  Hijf-F  WITHOUT  FPOCESMNG. 

DO  27,  J  =  Q»  USAMT-l  ) 
ZBLF(J)  =  biFF(iSA*pR  4  j) 
(50  Tf  3  5 

FOR  A  11     VS.  JCPlITi.de  ENVELOPE  FLUt,  taKE  THE  DbRl- 
VATIvE  OF  THE  INPUT. 

IF  ThE  CEBlGGTNR  "ODE  IS  BEING  USED.  DISPLAY  THE  INPUT 
TC  THfc  bIFF  £FE\TI  ATCR  CM  THE  CRT. 

IF  f^ENSfc  SWITCH  2)     31.  34 

UAL  I  MSbYOe.BLFFnSAPPP^NRAMT.ISCOFj  .800 U.FTMP, 1024. ,0) 

C  A  L I   l*  H  A  I  N  O  W 

CALL  L'lF  l-ER(ELFF  (  [ «  AMP6  )  ,     NSAMT,  2BuF) 

IF  (^FNSt  SWITCH  2)     40,  4  5 

CALL  bISSY<xE,Z6lJF,NSA*T,ISCnHl»8000»FTMp,lu?«..Q> 

CALL  WHAI|\,Dw 

PRIM  43,   I 

FORMAT  <9H  IT  IKF  =  I  4 , 3 X . 2 7H I NTERC bC  I  ATE  ZBUF  CGNIENTS.) 

PRIM  I  J  0  0,  CZBOF(J),  Jsq,  NSAMT) 

C  O  N  T  I  M I E 

NEXi  CHECK  THF  RESULTING  DATA  TO  SbF  IF  IT  lb  ABUvb 
ThE  MINIUM  A  P  P  L  I  T I  C  F  THRESHOLD.   IF  IT  IS  NCI,  SKIP  10  THE 
NEXT  T  IMt  SL  ICE  . 

CALL  AVE^AG(2gUF,  0.0,  NSAMT.  AVE) 
CALL  Atf"Ei"AG(2BUF,  AVE,  NSAMT,  AVEf) 
IF  ( fiVEM  -  5 • 0  >     290,  290,  46 

IF  IFE  AvEHAGF  MAGNITUDE  IS  ABOVE  THE  IFKESHOLD  VALUE, 
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CSL  FORTRAN  OF  SEPT  1568.   £ATE   8/12/71 
C        CONTINUE  PROCESSING  BY  FINDING  THE  ZERO  CROSSINGS  IN  I  HE 
C        DATA  IN  Z6UF. 


00156 
00165 
00171 
00173 
00200 
00203 
00204 


00205 


00216 
00226 
00227 


00*40 
00245 


00250 


0  0  2  61 
0027? 
0  0  2  7  3 


00274 
00277 
00305 
00305 


C 

C 

c 
c 
c 
c 

c 
c 
c 
c 
c 
c 


46     CALL  ZEC.FIC(2BUF,  AVE.  NSAMT,  ZBuF  >  ABUF  ,  NZC&> 

DO  48,  J=0»  N  S A^T 
«b     7BLF(J)  '     0.C 

DO  5  0,  J  =  0  »     (  N  7. C R  -  1  ) 

M  =  abuF  I.  )/CT  IME 

ZBLF (M)  =  32C0  . 
b  u     CONTINUE 

FINALLY  SMCOTF  OUT  THE  PULSES  IN  7bilF  USING  m  SMOCTH1N' 
FILTER  K  PRCCUCE  A  SMOOTHED  ZERO  RATE  SIGNAL  IN  ZBUF  . 

CALL  fcNVLF<ZElF.NS*KT.ZBUF,BRl#fcART,BFi,EAFlfYl) 

IN  IRDEE  TO  PECDljCE  THE  AMPLITUDE  ENVBLCFE,  KIRS  I  CALC 
LATE  THE  AVERAGE  VALUE  OP  THE  INPUT  DATA  AND  THEN  HALF-WAVb 
RECTIFY  Tt-IS  DATA  AEOUT  THE  AVERAGE  VALUF. 

CALL  AVfcf AG(ElFF( IFAHPB),  -1023.,  NSA^T,  AVE) 

AVF  =  AVE  -  1023. 

CALL  PELT  IF  (ELFF  (  IfAMPP  )  .  AVE,  NSAMT,  ABijF  ) 

FINALLY,  REMOVE  TPE  DC  COMPONENT  TO  FROCLCB  A  RANGE  UF 
VALUES  BETWEEN  0  A  n  C  512. 

DC  75,  J  =  0,  (NSAMT  -  1 J 
/b     ABUF(J)  =  AELF(W)  -  AVE 

NEXT,  FILTER  TPF  RESULTING  SIGNAL  USING  IHb  SUbRUUTlNb 
SECOND  S^COTt-ING  FTITER  AND  STORE  ThE  REsULi  IN  AdUF  .   AbUF 
NOW  CONTAINS  THE  SVCOTHEC  AMPLITUCE  ENVbiCPE  CF  THE  SPEECH 
I  N  P  U  i  S  1  G  N  A  L  • 
CALL  ENVLP(AbuF,NSAKT,ABUF,BR*,EAP*,BF2,EAF^,Y2) 

FINALLY  FLCT  TPE  CONTENTS  OF  ABUF  VS.  /'EOF  IU  PRODUCE 
AN  N^AMT  LONG  SEGMENT  CF  THE  DESIRED  DISPLAY.  iHfcN  PHCTO- 
bRAP^  THE  DISPLAY  (CNE  EXPOSURE)  AND  PEPPAT  THE  PhOCESS  ON 
"I  HE  lytXl  DATA  SLICF. 

CALL  DlSSY(AEu<r,ZBlF,NSAMT,ISCOPl,800Q,5l2..lQ24.»-l) 
TALL  PHO  l  C (1  ) 
29\j  ISAMP  =  I S  AN-P  +  IDFLT 

IF  1HE  CEBLGGING  MODE  IS  BEING  uSEU.  PPINT  OUT  THE  UM 
SLICE  INLEX  AND  THF  CONTENTS  OF  ZbOF. 

IF  (^ENSt  SwlTCP  2)     295,  2^9 
2V5      PRlNi  ?9t  ,      I 
2^b     FORMM  (*P  MIME  =  ,  I4.3X,  7HOUTPUT  .  ) 

PRINT  3  0  0,  (2BUF(J),  J=0.  NSAMT) 
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?  s»  y  [•  0  N  T  T  N  U  t 

K  fc  7  U  k  N 
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Section  7 

THREE  DIMENSIONAL  DISPLAY  ROUTINES 
The  Three  Dimensional  Display  package  consists  of  a  set  of 
programs  used  to  produce  two  dimensional  displays  with  the  third  dimension 
represented  by  varying  the  displays  intensity.   The  input  for  the  display 
package  is  the  data  in  FINT,  which  has  previously  been  generated  by  one 
or  more  of  the  Speech  Display  routines.   The  output  is  a  finished  Polaroid 
photograph. 

The  package  can  be  divided  into  three  parts:  NORMF,  FINTPT  and 
HIEMP  which  perform  preparatory  processing  on  the  data  before  a  display  is 
actually  generated;  SPDISP,  ENTER,  and  HEDBUF  which  produce  the  actual 
display  and  photograph  it;  and  finally,  the  CSL  system  programs  which 
are  used  as  the  direct  interface  to  the  CRT  display  unit.   In  order  to 
provide  a  more  complete  description  of  the  total  Speech  Display  system, 
these  latter  programs  will  be  described,  even  though  they  are  technically 
part  of  the  CSL  CDC  160U  Operating  System,  since  without  them  many  of  the 
operations  performed  in  the  other  programs  in  the  display  package  would 
not  make  sense.   However,  the  listings  will  not  be  given  since  they  are 
highly  dependent  on  the  particular  hardware  itself. 
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7.1  NORMF 

This  subroutine  normalizes  the  data  in  the  FINT  array  before 
it  is  used  by  SPDISP.   Its  basic  operation  begins  by  finding  the  maximum 
value  in  FINT  within  the  limits  of  IFREQ,  the  number  of  frequency 
components  being  used,  and  ITIME,  the  number  of  time  slices  being  used 
in  the  display.   The  subroutine  then  calculates  a  multiplicative  factor 
which  when  multiplied  by  the  maximum  value  will  give  a  value  close  to 
the  range  of  intensity  values  which  can  be  displayed.   Finally  all  of 
the  values  in  FINT  are  multiplied  by  this  value,  thus  giving  a  linear 
normalization  of  the  data  and  a  known  maximum  value. 

There  are  two  complications  which  are  added  to  this  basic 
algorithm.   First  of  all,  if  sense  switch  2  is  up,  the  subroutine  will 
print  out  the  FINT  array.   This  operation  is  actually  performed  by 
the  FINTPT  subroutine. 

Secondly,  the  normalized  maximum  value  can  be  varied  by  the 
operator.   The  maximum  intensity  value  which  can  be  used  by  the  display 
is  255.   If  any  value  higher  than  this  is  used,  ENTER,  the  program  which 
generates  the  display  buffer,  will  truncate  it  to  255.   The  normalized 
maximum  value  is  controlled  by  making  it  equal  to  the  product  of  255 
times  the  system  variable  OVFAC ,  whose  value  can  be  controlled  by  the 
operator. 

The  main  reason  for  choosing  a  value  other  than  1.0  for  OVFAC  is 
to  change  the  effective  contrast  of  the  display.   In  many  of  the  displays 
under  consideration,  a  very  small  percentage  of  the  data  points  will  have 
values  much  higher  than  the  normal  range.   If  the  maximum  value  were 
made  equal  to  255,  and  the  rest  of  the  data  were  normalized  linearly, 
almost  all  of  the  points  would  be  considerably  less  than  255  and  a 
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significant  proportion  of  the  intensity  range  would  contain  only  a  few 
points.   By  letting  the  maximum  normalized  value  be  greater  than  255 
and  then  truncating  any  intensities  over  255  to  that  value,  we  in 
effect  spread  out  the  lower  and  middle  ranges  at  the  cost  of  distorting 
a  very  few  number  of  points  in  the  display. 

An  alternative  method  would  be  to  use  a  type  of  logrithmic 
normalization  but  this  would  be  more  complicated  and  take  more  time. 
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FORTRAN  OF"  SEPT  1*68, 
SUBROUTINE  NORKF 


CATE   6/28/71 


1010 
t  Oil 

('014 

1022 

('025 
l.'026 
1027 

l|'032 
H034 

l.i  041 

lj!04l 
1044 


30 


48 

49 
50 


52 


THIS  SUEROLTINE  NORMALIZES  ThE  FINT  ARRAY  BY  FJRST  FINDING 
THE  LARGEST  ENTRY  IN  THE  ARRAY  ANl  THEN  MULTIPLYING  EVERY  ENIRY 
IN  THE  ARRAY  BY  A  FACTOR  SUCH  THAT  THIS  ENTRY  WILL  BECOME 
255  *  OVFAC,  WHERE  CVFAC  IS  A  FACTOR  SPECIFIED  BY  TMb  CHERAIOR. 

IF  SENSE  SWITCH  2  IS  UP.  THE  F INT  ARRAY  WILL  Bi  PRINTED  OUT 
BOTH  BEFCRE  AND  AFTER  IT  HAS  BEEN  NORMALIZED. 


JEND  * 

ISTOP  = 

ITIME  = 

IFMAX  * 

IFREO  s 

FINT   = 

FMAX  * 
FACTOR* 
OVFAC  * 


TITLE* 


ZERCTH  ENTRY  IN  THE  LAST  TIME  SLICE  IN  FINT 
ENTRY  IN  THE  LAST  TI^E  SLICE  IN  FINlt 
-  NUMBER  CF  TIME  SLICES  IN  FINT. 

-  maximum  number  cf  FREoutNCY  entries 


ADDRESS  OF 

ADDRESS  OF  1ST. 

CCMMCN  VARIABLE 

CCMMCN  VARIABLE 

ALLOED    IN    FINT 

CCMMCN  VARIABLE 

FINT. 

CCMMCN  ARRAY  -  USED 

CESSING  ROlTINES. 

MXIMjM  INTENSITY  FOUND  SC  FAR. 

NORMALIZING  FACTOR  TO  BE  MULTIPLIED  8Y  EACH  FIM  EN1RY. 

CCMMCN  VARIABLE  -  OVERFLOW  FACTOR  BY  WHICH  RROPURTIUN 

THE  MAXIMUM  INTENSITY  WILL  BE  NORMALIZED  WITH  RfcSPELT  TO 

T(-E  MAXIMUM  INTENSITY  WHICH  CAN  BE  DlSPLAYEfi. 


NUMBER  CF  FREQUENCY  EnTRISS  UbED  IN 
TO  HOLD  INTENSITY  OUTPUT  FRUM  PHO- 


CALCULATE  PARAMETERS  TO  BE  USED  IN  THE  DOUBLE  SUBSCRIPTED 
ADDRESSING  C?  FINT. 

JEND  s  <  ITIME  -  i)*IFMAX 
ISTOP  3  -END  +  1 

PRINT  OUT  FINT  IF  SENSE  SWITCH  2  IS  LP. 
CALL  FINTFT 

NORMALIZE  THE  CATA  IN  FINT  BY  FIRST  FINDING  THfi  LAKGESI 
ENTRY  AND  THEN  MULTIPLYING  ALL  OF  THE  ENTRIES  BY  A  fcACTUR  SUCH 
THAT  THIS  ENTRY  BECOMES  255*0VFAC,  WHERE  255  IS  THE  MAXIMUM 
INTENSITY  ALLOWED  PY  THE  DISPLAY. 


0 

If 

I* 


ISTCP#  IFMAX 
<  I  ♦  IFREO  » 


FMAX  =  0 

DO  50*  I1  _ 

DO  49,  JM»  ( I  ♦  IFREO  »  l) 

IF  (FMAX  -  FINT(J))     48,  49,  49 

FMAX  c  FlNTCw) 

CONTINUE 

CONTINUE 

FACTOR  =  255.0*CVFAC/FMAX 

PRINT  52'  FM^X,  FACTOR 

FORMAT  (8h  PMX  a  F20«2'9H  FACTOR"  F20.9) 

DO  60'  I"l»  ISTCP,  IFMAX 

DO  59'  J3I'  <I  +  IFREQ  »  l) 
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00052  FIMT(J)  •  F5KTlJ>*PACTOR 

00033     39  CONTINUE 

00035     60  CONTINUE 

C 

C  AFTER  NORMALIZATION.  PRINT  OtT  THE  FINT  ARRAY  |F  SENSE  SWITCH 

C  2  18  UP. 

C 

00060  CALL  FINTRT 

00061  RETURN 

00062  END 
-FORTRAN 
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7.2  FINTPT 

This  is  a  very  short  program  used  hy  NORMF  to  print  out 
the  contents  of  FINT.  The  printing  is  performed  only  if  sense  switch  2 
is  up.   Note  that  sense  switch  2  is  rechecked  after  each  frequency 
slice  has  been  printed.   This  allows  the  operator  to  halt  the  printing 
even  after  it  has  started  if  he  so  desires. 
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CSL 

C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


00005 
00011 
00013 
00015 
00033 
00036 
00036 
00036 
00037 
00040 
-FORTR 


FORTRAN  OF  SEPT  1*68,   CATE   i/ai/71 
SUBROUTING  FlNTRT 

THIS  SUIROUTIM  IS  USID  TO  PRINT  OUT  THE  CONTENTS  OF  THE  " 
FINT  ARRAY  PRQVIDEC  THAT  SENSE  SWITCH  2  TS  UP.   THE  ARRAY  lb 
PRINTED  CNE  FREQUENCY  SLICE  AT  A  TIME  IN  ORDER  OF  INCREASING 
FREQUENCY  ANC  TIME  WITH  A  SKIPPED  LINE  BETWEEN  EACH  FREQUENCY 
COMPONENT  SLICE. 

FINT   ■  FREQLENCY  INTENSITY  ARRAY, 

IFMAX  ■  CAXUKLM  FREQUENCY  INDEX  IN  FINT. 

IFREQ  ■  NUMBER  CF  PRiOUENCY  ENTRIES  USED  IN  TINT. 

JEND   ■  ADDRESS  OF  IEROTH  ENTRY  IN  THE  LAST  TIME  SLICE  IN  FINT. 

JSTOP  ■  LAST  ENTRY  TO  BE  PRINTED  IN  A  Qly/EN  fREQUENSY  SLICE. 

TITLE* 

JEND  ■  (ITIHE  -  i)#!FMAX 

DO  i5»  I»l»  IFREQ 

IF  (SENSE  SWITCH  2)     ifl,  20 

10  JSTOP  ■  I  ♦  'vENC 

PRINT  11.  (FINT(J),  J.I,  JSTOP.  IFMAX) 
PRINT  12 

11  FORMAT  <2X#10(F8.2.1X)> 

12  FORMAT  (/) 
15     CONTINUE 
20     RETURN 

END 


AN 
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7.3  HIEMP 

This  subroutine  is  used  to  give  high  frequency  emphasis  to 
the  normalized  data  in  the  FINT  array,  if  desired.   Its  operation  is 
very  straightforward  since  it  simply  goes  through  the  array  and  multiplies 
each  entry  by  a  factor  whose  magnitude  depends  on  the  frequency  of  the 
data.   The  emphasis  begins  with  the  entry  in  the  array  nearest  the  2000 
cps.  level.   The  multiplicative  factor  begins  with  a  value  of  1  and 
increases  uniformly  at  a  rate  of  12.5xEMPFC  per  1000  cps.   The  usual 
value  of  EMPFC  is  .15. 
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CSL  FORTRAN  OF  SEPT  1«*8,   BITE   S/28/71 
SUBROUTlNi  MIBMR 

C 

C  THIS  SUBRQITUI  TARIS  THE  CONTENTS  OF  FJNT  AND  ADD* 

C  EMPHASIS  'TO  'THE  HlOH  FREQUlNCY  COMPONENTS.   THE  HlQkH  FREQUENCY 

C  EMPHASIS  BEGINS  AT  1000  CPS,   THE  MULTIPLICATIVE  FA8T0R  STAHTS 

C  AT  1  AND  IS  INCREMENTED  UNIFORMLY  AT  A  RaTE  cF  EMPFS*12T5  PER 

C  1000  CPS. 

C 

C  DELF   ■  CCMMCN  VARIABLE.   DIFFERENCE  (IN  CPS.)  BETWEEN  LREQUENCY 

C  VALUES  CORRESPONDING  TO  ADJACENT  ENTRIES  IN  FIN1. 

C  DLFAC  ■  DELTA  FACTOR  BY  WHICH  FAC  INCREASES  TOR  EACH  FREQUENCY 

C  ENTRY  IN  FINT. 

C  EMPFC  ■  CCMMCN  VARIABLE.   INDICATES  RATE  OF  INCREASE  IN  FAC. 

C  FAC    ■  MULTIPLICATIVE  FACTOR  FOR  CURRENT  FREQUENCY  ENTRY. 

C  FINT   ■  CCMMCN  VARIABLE.   TWO  DIMENSIONAL  FREQUENCY  INTENSITY 

C  ARRAY,   IN  ORDER  TO  BE  MORE  EFFIcENT  AND  ALSO  TO  ALLOW 

C  THE  'EIMENSI6NS  TO  BE  CHANGED  DYNAMICALLY,  THE  ADDRESS 

C  CF  EACH  ENTRY  IN  FINT  IS  CALCULATED  ClRECTLY  INSTEAD  OF 

C  USING  THE  FORTRAN  INDEXING. 

C  IFMAX  «  CCMMCN  VARIABLE.   MAXIMUM  NUMBER  OF  ENTRIES  ALONG  FREQUENCE 

C  DIMENSION  Cf    FlNT.   USED  TO  CALCULATE  ADDRESSES  IN  HNT. 

C  INFRQ  ■  RELATIVE  LeCATlON  OF  THE  2000  CP9.  ENTRY  IN  A  Q4VEN  TIME 

C  SLICE, 

C  ITIME  ■  CCMMCN  VARIABLE.   NUMBER  CF  TIME  SLICES. 

C  JEND   ■  ADDRESS  OF  Z1R0TH  ENTRY  IN  LAST  TIME  SLICE  |F  FlNT. 

C 

TITLE* 

INTRO  ■  2000. /DELF  *  .3 

00004  DLFAC  ■  EMPFC«25 ./ (2000 . /DELF ) 

00010  FAC    ■  1.0 

00012  JEND   ■  (ITl'PE--  1)  *  IFMAX 

00015  DO  200,  I  ■  INFRQ,  JFREQ 

00021  FAC  ■  FAC  *  CLFAC 

00022  DO  100,  v  ■  I,  (JEKD  ♦  I),  IFMAX 

00031  FINT(J)  ■  FIINT(J)*FAC 

00032  100  CONTINUE 

00036  200  CONTINUE 

00037  RETURN 
00040  END 

'-FORTRAN 
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J.k     SPDISP 

This  routine  is  used  to  produce  a  photograph  of  a  variable 
intensity  CRT  display  generated  by  using  the  common  array,  FINT,  as  a  two 
dimensional  array  of  intensities  to  be  displayed.   The  SPDISP  routine 
interpolates  between  the  points  to  produce  a  smoothly  varying  display 
which  it  then  photographs.   Depending  on  the  characteristics  of  the  data 
in  FINT,  it  may  be  necessary  to  break  the  picture  into  strips  and  take  a 
multiple  exposure  photograph. 

The  floating  point  contents  of  FINT  have  been  previously 
produced  by  one  of  the  various  speech  display  routines.   The  intensity 
values  should  be  normalized  to  somewhere  around  256.0  since  that  is  the 
maximum  display  intensity  and  any  point  above  this  value  will  be 
truncated.   In  order  to  get  a  better  spread  of  display  values,  it  is 
sometimes  desirable  to  have  a  few  points  over  256. 0  (which  then  become 
truncated)  and  thus  allow  the  smaller  values  to  spread  out  more.   This  is 
especially  true  if,  as  is  usually  the  case,  the  data  contains  a  few 
samples  relatively  larger  than  the  rest. 

The  characteristics  of  the  display  itself  are  determined  by 
common  variables  whose  values  may  be  chosen  by  the  operator.   IDEL  is  a 
display  variable  and  specifies  the  spacing  of  the  points  which  will  be 
displayed,  i.e.  how  many  positions  apart  each  point  will  be  (there  are  a 
total  of  U096  x  U096  positions).   IDELX  specifies  the  number  of  display 
points  which  will  be  interpolated  between  each  FINT  entry  in  the  X  direc- 
tion while  IDELY  specifies  the  same  information  for  the  Y  direction. 
IXMAE  indicates  where  the  display  of  the  data  will  begin  relative  to  the 
left-most  border  of  the  CRT  face.   It  is  given  in  units  of  time  slices, 
i.e.  it  tells  how  many  time  slices  on  the  left  hand  side  of  the  display 
will  contain  no  information  whatsoever.   Finally,  the  operator  can 
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determine  the  minimum  intensity  value  which  will  be  displayed.   By 
setting  this  value  greater  than  zero,  useless  clutter  can  he  eliminated 
with  a  consequent  speed  up  in  processing  time.   Figure  7-^.1  shows  the 
effect  of  varying  the  size  of  this  minimum  intensity  variable. 

FINT  is  a  two  dimensional  array  with  maximum  dimensions  of 
IFMAX  x  ITMAX.   Because  of  the  slowness  of  the  CSL  FORTRAN  addressing 
algorithms  and  because  time  is  very  critical  in  SPDISP,  most  of  the 
addressing  in  the  inner  loops  of  SPDISP  is  done  in  assembly  language 
using  as  many  shortcuts  as  possible.   The  number  of  entries  in  FINT 
which  actually  contain  data  is  given  by  IFREQ  for  the  frequency  dimension 
and  ITIME  for  the  time  dimension. 

The  subroutine  begins  by  loading  all  of  the  constants  which 
will  be  used  by  the  program  and  checking  the  value  of  the  various  display 
parameters  to  be  sure  that  they  are  within  acceptable  bounds.   Note  that 
the  FI  array  is  filled  with  the  floating  point  representations  of  the 
integers  from  0  to  32.   This  allows  the  low  integer  indexes  of  the 
internal  loops  to  be  converted  to  floating  point  by  table  lookup  instead 
of  calling  the  conversion  routines.   This  puts  a  maximum  limit  on  IDELX 
and  IDELY  of  33.   If  any  parameter  limits  are  exceeded  a  message  will  be 
typed  out  and  the  program  will  return. 

Next  the  display  file  is  set  up  by  calling  the  system  subroutine 
ACTSCOPE.   This  call  causes  the  display  buffer  and  its  pointer  to  be 
recorded  in  the  appropriate  system  subroutines  for  future  display  pur- 
poses.  Then  SPDISP  calls  HEDBUF  which  initializes  the  display  constants 
which  will  later  be  used  by  ENTER  and  also  loads  the  initial  two  entries 
in  the  display  buffer,  ISCOPE,  with  the  proper  control  words  to  begin  a 
variable  intensity  TV-type  display  scan. 


133 


min.  inten.  =  1 


min.  inten.  =  20 


min 


.  inten.  =  U0 


mm 


.  inten.  =  60 


min.  inten.  =  100 


mm 


.  inten.  =  lHO 


full  intensity  scale  =  255 


Figure  T.^+.l  Effect  of  Increasing  the  Minimum  Intensity  Threshold  on  a 
Spectrogram  of  the  Word  "shod". 
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The  interpolation  itself  basically  works  "by  first  inter- 
polating between  frequency  slices  to  determine  the  intensity  value  at 
each  time  slice  and  then  interpolating  along  this  new  interpolated 
frequency  line  to  get  interpolated  points  between  time  slices.  The 
interpolating  begins  from  the  lower  left-hand  corner  of  the  display 
which  represents  low  frequency  and  time  values. 

When  this  program  was  first  written,  this  method  seemed  the 
most  natural  since  the  CRT  display  produces  pictures  in  a  left-to-right , 
bottom-to-top  direction.   However,  since  that  time  it  has  become  evident 
that  a  considerable  savings  in  storage  could  have  been  made  by  turning 
the  display  on  its  side,  i.e.  have  the  frequency  displayed  on  the  hori- 
zontal axis  and  time  on  the  vertical.   Since  the  actual  display  surface 
is  square  and  since  we  are  using  photographs  anyway,  it  would  make  no 
difference  in  the  final  display.   In  addition  it  would  mean  that  the 
display  could  be  produced  as  the  data  was  generated  rather  than  having 
to  wait  until  all  the  data  was  generated  before  making  the  display. 
Unfortunately  time  has  not  been  available  for  making  the  rather  extensive 
changes  which  would  be  necessary  in  the  programs  involved. 

In  order  to  speed  up  the  interpolation  process,  the  differences 
between  adjacent  frequency  entries  all  along  the  given  frequency  slice 
are  calculated  once  before  going  into  the  actual  interpolation  process. 
These  differences  are  divided  by  the  number  of  interpolations  which  must 
be  made  in  the  Y  direction  between  each  frequency  slice  and  are  then 
stored  in  the  DELTAY  array  for  use  in  the  interpolation  of  each  line 
between  the  two  frequency  slices.   The  dimension  of  DELTAY  must  there- 
fore be  great  enough  to  handle  the  maximum  number  of  time  slices  which 
might  occur.   Currently  this  array  is  1+00  words  long  and  is  stored  at 
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the  end  of  the  ISCOPE  array.   If  ITIME  is  ever  set  greater  than  U00  an 
error  comment  will  "be  given  on  the  typewriter  and  the  subroutine  will 
return. 

If  the  intensity  of  each  interpolated  point  is  determined  to 
be  greater  than  the  selected  minimum  intensity  which  will  be  displayed, 
it  is  compared  with  the  intensity  of  the  last  point  which  was  entered 
into  the  display  buffer.   If  the  difference  is  greater  than  1,  the  new 
point  is  entered  into  the  display  buffer  by  calling  the  subroutine  ENTER. 
When  the  last  data  point  has  been  interpolated,  an  intensity  entry  of  1 
is  produced  so  that  the  remaining  part  of  the  display  has  a  uniform 
intensity.   (A  background  intensity  of  1  has  been  found  to  give  more 
consistant  contrast  results  in  photographs  than  a  zero  intensity  level. ) 
Finally,  a  unit  intensity  entry  is  made  with  an  X  position  of  0.   This 
ins\ires  that  the  scan  will  complete  the  old  line  and  begin  the  next  line 
with  a  unit  intensity  background. 

At  the  end  of  each  line,  a  check  is  made  to  see  how  full  the 
display  buffer  is.   If  it  is  not  within  less  than  200  locations  of  the 
end  of  the  buffer  and  if  the  program  has  not  interpolated  the  last  line 
of  data,  a  new  line  will  be  started.   If  the  buffer  is  within  200  loca- 
tions of  being  full,  or  if  the  interpolation  has  been  completed,  the 
buffer  will  be  photographed.   In  order  to  do  this  if  the  buffer  has  its 
last  word  only  half  full,  the  remaining  half  must  be  filled  with  all  l's. 
This  code  in  effect  keeps  the  CRT  from  interpreting  the  garbage  in  the 
last  half  of  the  word  as  a  new  X  position.   Then  SPDISP  takes  a  picture 
of  the  display,  prints  out  the  current  line  number,  reinitializes  the 
display  buffer,  and  continues  on  to  the  next  line.   If  the  data  has  been 
exhausted, the  subroutine  returns. 
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FORTRAN  OF  SEPT  1*68,   CATE   8/12/71 

SUPRCUTTMlhSSCJpOLTlNE  TAKES  AN  IFREO  BY  ITIME  ARRAY  OF  INTENSITIES 

ANC  CONVERTS  IT  TO  A  CONTINUOUS  IMGE  CRT  DISPLAY  BY  I  N  TERPUl  A  II  NU 
HETWFEN  THE  FdNTS  IN  2  DIMENSIONS.   THE  SUBROUTINE  TAKES  *kJCTuHE 
OF  THIS  LISFLAY.   THE  CORRECT  IFREQ  AND  ITIME  VALUES  MuSI  Bb  ENIfcKED 
THE  DIMENSION  STATEMENT  FOR  F  1  NT (  I  F rE Q ,  !  T  I  ME  )  ,  DbLlAYdi  ME), 


INTO 
AND 


POINT  (  lTlMt*IDELX)  BEFORE  THE  PROGRAM  IS  COMPILED. 


BPTNX  s 

BPTFV  = 
DELI AX= 
DELUYs 

FI 


F  IN    = 

F  INI  s 
I  = 
]  OEl  s 
IDELX  s 
IDEly  » 

IFKcC  s 
I  F  M  A  X  = 


!  P  1  h  s 

l  sc;ife  = 

ITi^E  = 

1  x  = 

!  XMAp  s 

J  s 

K  = 

K  E  N  r-  = 

L  iNt  = 


LEND 

M 

N 
OvFL 


INTENS I  TV 
FHEOUFNCY 
INTENS ITY 
FREOUFNCY 
I\TEN? ITY 
POSITICNS 
INTEN? itv 


OF  NEXT  BASIC  TIM?  POSITION  ON  CURKEk 

L  INE  BEING  PROCESSED. 

OF  PREVIOUS  BASIC  TlMF  PUSiTION  ON  CUnRfcM 


LINE  BEING  PROCESSED. 

INCREMENT  EETWEEN  2  SPECIFIC  TIME 

ON  A  GIVEN  FREQUENCY  I  INE. 

INCREMENTS  BETWEEN)  FPFGUENUY  SLICES 
IN  INTERPOLATING  ACRCSS  THE  FREclEnCY  SlICE. 
CNE  ENTRY  FCR  EACH  TIME  FOSTT  IG\  . 
FLOATING  POINT  ARRAY  USED  To  HOLE  CONSTANTS 
1.0  Tf  THE  MAXIMUM  INDEX  OF  FI,  IE.  H(I>«I 
ALLOW*  LOW  INTEGERS  TO  BE  CnNVfcPTED  10 

TAELP  LOOKUP  INSTEAD  CF  CALLING  FLOATh 


USbD 


FhUv 
1  hlb 
FLCATINb  PU1N' 


EY 


INTbNSITY 


BUFFbH, 
I  NFC^MaT 1  UN 


UF 


SCUP 

UK 


COMMON  VARIABLE  USED  TO  TRANSMIT  THE 

CF  THE  DISPLAY  POINT  TO  THE  ENTFR  SUbROUTINb. 

TWC  DIMENSIONAL  INPUT  iNTENqlT*  ARRAY. 

I  \  C  E  X  REGISTER  1 • 

^PACING  BETWEEN  DISPLAY  POINTS  CN  CRI. 

NLCBER  OF  DISPLAY  POINTS  BETWEEN  EACh  TIME  SAMMi.6. 

NUMBEF  nF  DISPLAY  POINTS  BETWEbN  EaCH  FRbC.  PUblTiUN 

rvL.MRFF  OF  FREQUENCY  POSITIONS  IN  DISPLAY. 

COMMON  VARIABLE  "  MAXIMUM  NUMBER  CF  ENTRIES  ALU  G 

FKEQLFNrv  DIMENSION  CF  FlNT.   USED  TO  CALCULATE 

COLDLY  SUBSCRIPTED  AtDRESSEs  IN  F INT. 

FOINTFR  TC  NEXT  UNUSED  CELL  IN  rlSPLAY 

SUFPEF  USED  BY  aCTSCCPE  TO  cCN^alN 

Tf-F  DISPLAY. 

NLMREF  OF  TIME  SLICES  IN  DKPLAv. 

CCM^CN  VARIABLE  USED  TO  TRANSMIT  X  POSITION 

THE  LIcpiay  POIN1  TO  THE  ENTER  SUBROUTINE. 

POSITICN  CF  LEFT  HANC  MARGIN  OF  DATA  RbLATlVb 

X  =  0  FOSIT ION  ON  DISPLAY . 

I\CEX  REGISTER  2- 

Ii\CEXRFGlSTFR3-  _  .  _   ,  '  c 

MAXTMtM  VALUE  OF  ThE  FRECUEnCY  I  N  TbRPOL  A  T  I  Or,  1<MUE 

("AY  NCT  EE  GREAlbR  THAN  MAyIM"M  SiZb  OF  FI  ARKi-Y 

CURRENT  l  INE  NUMBER  tElNG  PRODUCED  BY  DISPLAY 

GENERATION  PORTION  OF  PRCGRaK. 

INDEX  REGISTER  4 

N-AXI^IN  VALUE  OF  THE  TIME  1  NT  ERPC  L  A  T  1  ON 

(MAY  NCT  EE  GREATER  THAN  MAvIMum  SlZb 

INDEX  REGISTER  5  . 

IimDEX    REGISTER    6  • 

COMMON  VARIABLE  USED  TO  KEEP  TRaCK  0> 

EER  CF  INTENSITY  POINTS  ExCFEDInG  256 


i 


t. 


INDEX, 

CF  FI  ARHAY 


THE  NUM- 


) 
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C'Sl 
C 

c 

r 
C 

C 

r 
c 


F  ORTRAN; 


1  0 


Li 
1 

U 

1 

c 

6 

b 

b 
i 
b 
9 
U 
1 

s> 

LLAR 


OF     SbRT 
POINT 


PTLiT 


1568,   TATE   R/12//1 

s  INTENSITY  OF  POINT  CLRRENTLY  BtTNG  INTbRPCLAibD 

ALONG  4  GIVEN  FRbUUENCY  LINF  BbTWttN  THE  INIbNbllibb 
AT  THP  TWO  BASIC  TlMb  POINTS  0-  I h A  T  FREQUENCY  LINE. 

=  INTENSITY  OF  LAST  POINT  ENTERED  IMO  DIbPLAr  bL"-FbK. 


SlibR'HiTl^ES  NEbLED  z    DISPLAY  ROUTINES/  E\l7bR,  RbDdUF 


i  I  T  I.  h  * 
IllME'^'b  ION 
PCI 


deltay upo > 


F  I  (32) 
ALbtvCb  (CELTAvfn).  A(46()3>> 
I 'ATA  (MASK  =  7/7^77770DTU0n00B) 
H  A  T  A  (CU^^  =  OOOOOL10C77777777B) 


Fit!  LP  CONSTANTS  LSbD  BY  PROGRAM. 


DELX 

DELY 
i  E  N  D 
KENT) 
LEM) 
OVFL 


I  LELX 
1LELY 
IF  RbC 
I  ":  E  L  Y 
ILFLX 
U  -0 


CHELK  TF£  VALLES  CF    THE  SYSTbM  VARIABLES  Tu  bEb  IF  i  Hb  Y 
ARE  WlThlN  T  H  6  CONSTRAINTS  SEl  BY  SPDISP.   IF  NCT#  TYPE  A 
MESSAGE  AND  FETLRN  SO  ThE  OPERATOR  CAN  MnDlFv  THbiR  VAlUfcS. 


IF  (Mxh«R+niME)*TCcl 
KRI1F  OUfFUT  TARC  1 5  f 
F  CRM4  T  ( fck  I  Xy  AR  ) 

r;i  T   4  0 

IF  (  iFRfcf, *icely*idpl 

19. 


x*IDbL 
21 


-  40*5) 


30.  5  U  f  2  U 


4T95  ) 
32 


33*  33.  "U 


36»  36.  34 
19.  35 


WRIT-  OUIFUT  TAFr 

FORMAT   (et-  I  F  F.EC  ) 

GO  T'T  4U 

IF  (  '  T  I  i*i  b  -  4  o  o  ) 

I*  R  I  T  >-  1 U  i  F  U  T  TAFF 

FORMAT  (6F  MIME) 

GO  T  ' )  4  U 

IF  (  <  i-  m  L  -  3  Z  )     ?  7  ,  3  7,  38 

IF  ( i  E  N  D  -  32)     45.  45.  38 

i-RIT-  'JOTFUT  TAFE  19,  39 

FORMAT  (fc(-  INCEX) 

WHITF-  JblFUT  TAFE  1$,  41 

FORMAT  (lb+7X,13HIc  JOC  LARGE.) 

GO  T'  60  0 

CONTINUE 

LOAD  IFMAx  INTO  I Nc 7 RllC T  I ONS  USED  IN  CALCLLATlNb  FINT  INubXbh 


LDA 
SAlj 
SA|_ 


■  F  u  P  T  R  A  * 


I  F  ^  AX 

LCCl 
LCC2 
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00064 
00070 


0  0  U  73 

00074 
00100 
00105 


00106 


0011? 
00113 
00120 


rSL 
c 

c 
c 


00124 


00125 


0  'J  1 3 1 


hORTRAN  OF  SEFT  1*68,   EATE   8/12/71 

CAL6.'LATt  VALlES  FCR  THE  I  MERGER- TO-F  LO  AT  I NG  POINT  CONVEKSiuN 

DO  9.  1=0,  22 
V     FI  (  I  )  =  I 

INITIALIZE  THE  DISPLAY  FILE  AND  THE  CISFLAY  MLE  CONSTAT 
THE  7ER0TR  CISPLAY  LINE  IS  NOT  USED,  SO  THE  INITIAL  DISPLAY 
I  INE  ^ILl  START  AT  Y  =  1*IDEL 

IPTR  =  U 

CALL  ACTbCOFE(  ISCOFE,  IPTR,  -1) 
CALL  HFDfeLFd  .0,0»  ICFL.  ISCOPE) 
hPTpv      =0.0 

BEGIN  IMERPOl  ATICN.  TAKING  CNE  FrEolEnCY  AT  A  TIME. 
I  =  FREQUENCE  PCSITIOM  INDEX.   DISPLAY  FILE  IS  bUiLT  UP  ONE 
HORIZONTAL  LINE  AT  A  TIME  WHILE  INTERPOLATION  IS  GOINU  ON. 

THE  500  LOCP  PROCESSES  ONE  FREQUENCY  SLICE  AT  A  TlMfc. 

CO  5  0  0.  I=l»  IEND 

CALCLLATE  Y  INTENSITY  INCREMENTS  FOR  NEW  FREQUENCY 
SLICK-.   -  =  TEMPORARY  TIME  SLICE  INDEX. 

h  r  i 

DO  1U0.  -*1»  I T I  ME 

N  =  ,.'  +  1 


ARHAV 


b  . 


iLLAR 


LOL  1 
--FQK'TB-A^ 


LEA 

F  cp 

FHV 

ST  A 
I  NI 


F  IM 
F  INT 

cely 

CtL TAY 

*  * 


DELTAY(J)=(FlNT(N)-FiNI(M))/DtuY 


INCREMENT  M  By  IFmAX 


lul 


CCNT  [ME 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 


USING  T »-  ESE  Y  INTENSITY  INCRbMENTS,  INTERPOLATE  A- 
CNCSC  THb  FREQUENCY  SlICF  TO  OdTAlN  THE  TNTEnSIiY  VALUES 
hoVTH-  tASlC  TIMF  F  D  I  >\  T  ?  AT  THE  FARTlCUlAR  FREQUENCY 
0ALUC  lInE  EE I NG  DlSPlAYED.   THESb  POlNiq  ARE  CALCULATED 
ONE  n  A  TIME  BEGINNING  AT  TIME  SLICE  1-   T(mE  SLICE  0  lb 
A^irtn  rr  EE  0  INTENSITY.   X  DIRbCTICN  TNTtRPCLAT  ICN  BbtilNb 
FRCM  TIME  SLICE  0  TC  TlMF  SLICE  1.   K  =  FRPGUfcNCY  I NTERPCL A  I  1 Ul 
INiCFv,   -  =  U*E  Si  ICE  POSITION  INDEX. 


PO  4"-0.  K  =  0,  KbNT 


POL  A 

bPTP 


H  P  i  F  V  IS  SET  TO  2FPO  TO  INITIALIZE  TH^ 
ION  FOR  THE  NFW  FREQUENCY  VALUE  L I N P . 


=  U 


IN  i  ENS  I  T  Y   IN1EK' 
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M  =  1 
C 
C 

c 


Art 


THE  300  ICOF  FRCDLCES  CNE  LINE  FOR  THE  DISPLAY. 

PO  300.  -  =  1,  I  TIME 

CALCLLATE  THE  NEXT  BASIC  TIME  SLICE  IN1FNSITY  VALub,  BMiNX, 
FKTF»FOLM  I NG  ACROSS  THE  FREQUENCY  DIRECTION. 


LCA 
FMi 
F  AD 
STA 


6       F  I 

i     celtav 
5   f  in  r 
ef-tnx 


BPTNXsK  1  (K)*DFLTAY( „)  +  FINT(M) 


L  0  C  e. 


* 

ST-R 


X  X  1  6  lj 


NCH  iNTFRPfLATE  BETWEEN  T h  1 S  POINT  AM  THt  PRtVlUUS  dAblC 
T!M=  iLlCE  INTENSIFY  VALUE*  BPTPV.   L  =  t  i  NE  SLICE  I  M  ERH«jL  a  T  1  UN 
P'DEX.   MKb  A  NEW  ENTRY  IN  ISCOPE  EahR  11*6  THE  NEwL*  iN.fcR- 
PrLATtC  INTENSITY  VALlE  IS  GREAIER  THAN  THE  MINIMUM  INTENSITY 
AM.OWECj  FINTM,  FROVIDED  THAT  IT  OlFFcfiS  FRCM  FHE  PREVIOUS 
E^TRY  IN  ISCC°E  EY  MORE  THAN  i  INTENSITY  I.  N  II  . 

CALLLLATE  THE  INTENSITY  INCREMENT  Tn  BE  LStO  IN  1  HE 
TIMF  SLICE  INTEKPOl  ATTCN. 


FSB 
FCV 
STA 

IM 
EM 
LCa 

S  A(.l 

Ajp 


BSS 
LCA 

FUj 

Fat 
STa 
F  Rp 

a.f 


BFTPV 

L&LX 

CELTAX 

*  * 

LEND 

>  >  2  a  o 

X>210 


DELTAXs(BPTNX-BPTFV)/DtLX 


M  =  M  *  IFMAX 

DO  2 0 0 i  L  =  C.  i  END 


IF  LEND  IS  NET,,  SKIP  LUOP 
BPtlNMNG  CF  TRF  INTERPOLATION  |_COP 


C 

F  I 

CELTAX 

fcFTPV 

F  iN 

F  I  N  T  h' 

X>140 


FIN  =  F  I  (L)*DELTAX*PPTPV 


IF(F  In-F  INTM)  13u,14U»140 


IF  'HE  CLRRENT  INTENSITY  VALLE  IS  BFLOw  FlNTM,  CHECK  TO 

SEE  IF  7  *-E  FFEvlQUf  INTFMSITY  VALlE  WAS  -|.0.  IE.  THE  BACKGRUuNU 

VALU'-.  IF  NCT,  INCEPT  AN  ENTRY  QF  THIS  VALUF  IN  THE  DISPLAY 

PUFFER  IN  ORCER  TO  r-RDP  THE  INTENSITY  VAilE  tC  THt  BACKGROUND 
LEVEL. 

LCA        FTLST  IF(PTLST-i.o)  1 3  >3  ,  k  0  0  *135 

fsp      =2qoi4  ornoooonoooB 

Ajp  0   X>200 


iuo 


0015] 
00152 


00153 
00156 
00160 
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SLJ  0   XX135 

XX140     LDA  FU               DIF  =  FIN  -  PtLST 

FSB  FTLST 

AwP  0   XX200             IF (DIF )  142,200-141 

AJP  3   XXj42 

AoP  2   X  > 1 41 

bss  lE 


DELI  ax 

* 

* 

XX141 


XX142 

XXI  ^b 

X  X  1  5  o 


if  i h e  Intensity  Increment  since  thp  la? i  eniry  is  grea^* 

THAN  1.0'  M  A  K  E  A  N  F  W  F  \  T  P  Y  . 


XX^OiJ 

-  -  F  U  R  T  R  A  r^ 


FSh 
AwP 

SLJ 
FAD 
A.P 
SLJ 
LCA 
STA 
ENA 
I  N  A 

Ann 

ml  I 

IN  A 

ML  I 
STA 
EM 
RTj 
ICK 
SLJ 


=20ui400000000000B 

XX150  IF (DIF-l  .  o  )     200»^0U#15U 

XXgoo 

*20U14000000000UOB 

X  > 150  IF ( UIF*1 . o  )     l50»^nU#wUu 

XX200 

=  '<■  0  0  1  4  o  n  0  0  0  0  0  0  0  0  0  B 


FU 

ce 

7/77fcB 

I*MR 

ICELX 

ot 

IEEL 
I> 

qE 

EMER 
« * 

ST  AHT 


FIN     -     1.0 

IX     =     (  (J-i-MXmAR)*  ICELX     ♦    L)*lUEu 


NO    OPERATION 

CALL    ENTER 

ADD.     FIELD     IS    LOATED    WITH    CCMbNis    \Jt     L 


2iu 

3UU 


FINALLY  LCAD  t  t-  E  PREVIOUS  BASIC  TIMp  SLICE  INTENSITY 
VALI-  >/AhIA£LE.  ^PTPV.  WITH  THE  CURRENT  TIME  SLlCb  INTENblH 
A  N  C   HEN  kEfEaF  T  H  F  LUCP. 

hPTF  '  =  tFTNX 
(  O  N  T  i  N  i  J  E 

AT  Tj-E  bNC  OF  TMF  DATA  GENERATE  A  ONE  INTENSITY 
bKTR*  SO  THAI  T h ^  REMAINING  PART  CF  THE  I  I NE  hlLL  COM  A  IN  A 
UNIFORM  bACKGfcOLND  INTENSITY. 

IX   =  (I'll  ME  *  I  XMAR  )*  IDFLV*IDEL 
FIN  =  l  .  u 
L  A  L  I   F  N  T  fc  h 

T  ES  f  FCF  EM  r/F  DISPLAY  GROUP  BY  SEEING  IF  JHTR  IS 

MTHTl»  200  LCCATTCN?  OF  thE  END  "f  ISCOPP,  OR  IF  *=KtND  AND 

i-II-i  !•  (IE.  IPE  PNC  of  the  DISPLAY  HAS  BFEN  FEALHtU).   IF 
^OT  DONE'  THEN  CONTINUE. 


I  L  L  A  R 


lUl 


0165 
U166 
(1167 
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Xx3l^ 


X  X  3  i  7 


LCA 
IN  A 
A„P 
ENA 
SLB 
A.P 
ENA 
SIB 
A„P 


IFTR 

e?317B 

X>32U 

OE 

KEnC 

X>  390 

OE 

I  End 

X>390 


-  -  F  U  ►"  T  R  A  iv 
C 


IF(  IPTR-4400)   3l5»320»320 
INCREMENT  A  RPG.  BY  -4«0U 

IF(K-KEND)  39n*3l7»317 
IF(I-IEND)  39n»320'320 


3<u 


■  -  1  L  L  A  R 


AT     irE    ENU    OF    A    niSPLAY    GROUP,     INSERT     A    ZERO    EMKy 
SCAN     TO     FINISH     THE     LINE. 

IX    =    0 
FIN     s     0.0 
(•ALL     6-MTfcR 


0  ALLOW  I  h  b 


IF  T  F-E  ENID  CF  THE  DISPLAY  GROLP  MAS  PtEi\  NEAChED.  FluL 
IM  THE  LAST  EUFFER  WTRD.  If  NECESSARY.  RITE  ALL  ONbSi 
D'SPLAY  TFE  EUFFER.  AND  TAKE  a  PICTURE  OF  IT. 


XXS25 


LCA 
A„p 
A.P 
LLQ 
LCA 
L  II. 
ADL 
STA 


I  C  DC 

X*340 

X>340 

MSK 

COM 

IFTR 

ISCOFE 

ISCGFE 


-FORTRAN' 


3<*u 
3^1 

S44 


31  'J 


IF  (10DD)   3^5,  340,  3*5 


MASK  =  77777  7  7700000000B 
COMM  =  0000000077777/7/B 
LOAD  INDEX  RER.  4  WITH  IP  TH 
ADD  LOGICAL,  IE.  ISCCPE(IPTR)  = 
A  REG  -OR.  (MASK  .AND,  I  SCCPE (  I  K  i  R  )  ) 


343 
IPTR) 


IPTR  =  Ii-TR  +  1 

IF  ( c fc N S t  SUITOR  2  1  341 

RRIM1  342  (ISCOFE(I),  1st), 

FORMAT  (fcx*  5  (016, 4X  )  ) 

CALL  PHOl C (1  ) 

CALL  SrOFSCCF 

FINAL v  PRIM  OLT  TFE  IPTR  P  0  S  1  T  I  l  N  IN  I  q  C  0  P  F-  . 

LINE  =  (1-1)*  IDELY  4  K  +  1 
PRINT  3 1  (j  ,  LINE,  IFTR 

hormat  (^oh  at  the  enip  of  line  ,  i  4  , 1  x  ,  7h  t  f  tr  =  ,  i  6  »  1  h  .  ) 
recalculate  initial  constants  in  lisplay  bui-fer  and  continue 
1tnp  =  (line  *   1  )*icel 

CALL  hEDbLF(l.o,o.ITMP,ISCOPE) 
GO  T'1  4  0  U 

ir  ire  enc  of  tht  display  buffer  has  not  been  RtACHED,  con. 

llN||t-  RY  MAKING  AN  ENTRY  WITH  X  =  Q  AND  AN  INTENSITY  OF  1 ,   THIS 


1U2 


00236 
00237 
00240 
00241 
00242 
00243 
00247 
00247 
00250 
■-FORTRAN 


CSL 

C 

c 

c 
c 
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LETS  THE  CRT  SCAN  KNOW  THAT  SUCCEEDING 
THE  .^EXT  LINE.  IT  ALSC  STARTS  THE  NEW 
TENSITY  CF  1 . 


X  POSITIONS*  REFER  TO 
LINE  CFF  WITH  AN  IN- 


IX   =  0 

FIN  =  1.0 
CALL  ENTER 
41)  U     CONTINUE 
5U0     CONTINUE 

PRIN  i  50>  » 
5ut>     rcR^aT  (EF- 

6 1.)  0     RETURN 

FNP 


CVFL 
CVFL  = 


F10  .0) 


1U3 


7.5  ENTER 

This  subroutine  is  used  by  SPDISP  to  generate  the  buffer  which 
controls  the  CRT  display.   It  is  one  of  the  exceptions  to  the  rule  about 
not  having  parameters  in  the  common  area  since  it  is  called  in  a  very 
tight  loop  in  SPDISP  and  is  used  very  often.   Thus  in  order  to  save  time 
the  parameter  values  are  saved  in  COMMON  storage  so  that  the  tedious  address 
loading  operations  are  not  necessary  every  time  ENTER  is  called.   This 
cuts  down  the  number  of  operations  both  in  the  call  itself  and  in  the 
prologue  of  the  subroutine. 

In  order  to  understand  the  operation  of  ENTER,  it  is  necessary 
first  to  describe  in  a  general  way  how  the  CRT  display  operates  in  the 
variable  intensity,  TV  scan  mode.   From  an  initial  position  and  intensity 
(which  is  generated  by  the  subroutine  HEDBUF)  the  display  beam  will  scan 
to  the  right  (increasing  x  addresses).   The  data  in  the  display  buffer  is 
broken  up  into  two  2U-bit  entries  per  U8-bit  CDC  l60k   word.   Each  entry 
specifies  an  x  position  in  the  12  high  order  bits  and  an  intensity  in  the 
12  low  order  bits.   The  display  continually  compares  its  current  x  position 
as  it  scans  with  the  x  position  in  the  next  display  buffer  entry.   When  it 
makes  a  match,  it  changes  the  intensity  to  the  value  in  the  current 
display  buffer  entry  and  continues,  using  the  next  entry  for  comparison 
purposes. 

Thus  the  purpose  of  ENTER  is  to  generate  an  entry  for  the  display 
buffer  given  an  x  position,  IX,  and  an  intensity  value,  FIN.   The  sub- 
routine is  only  called  for  x  positions  where  SPDISP  has  determined  that 
a  change  in  intensity  will  be  necessary.   This  is  determined  by  comparing 
the  interpolated  intensity  values  at  each  x  position  with  the  last  value 
entered  into  the  display  buffer  (PTLST)  and  only  calling  ENTER  when  the 
difference  is  1.0  or  greater. 


Ikk 


When  the  subroutine  is  called,  it  first  checks  the  value  of 
FIN  to  see  if  it  is  greater  than  255.0  (the  maximum  intensity  which  can 
he  produced  by  the  display).   If  it  is,  then  ENTER  will  use  an  intensity 
of  255  provided  that  the  previous  entry  was  not  also  255.   If  it  was  in  fact 
255,  the  subroutine  returns.   For  each  value  over  255,  the  ENTER  subroutine 
increments  the  common  variable  OVFL  by  1.0.   This  variable  is  used  by 
SPDISP  to  keep  track  of  the  number  of  points  which  have  been  truncated. 

If  an  entry  is  added  to  the  display,  its  floating  point  value 
is  converted  to  fixed  point  and  PTLST  is  updated  to  reflect  the  new 
intensity  value.   Then  a  combination  of  shifts  and  masked  transfers  are 
performed  to  produce  a  2U-bit  display  buffer  entry  in  the  A  register. 

At  this  point  it  is  necessary  to  know  into  which  half  of  the 
current  display  word  to  load  the  entry.   For  this  purpose  the  variable 
IODD  is  used.   If  it  is  0,  the  current  entry  is  loaded  into  the  left  half 
of  the  current  buffer  entry.   If  it  is  1,  it  is  loaded  into  the  right 
half.   In  the  latter  case  the  pointer  to  the  current  word,  IPTR,  is  in- 
cremented.  In  either  case  the  value  of  IODD  is  changed  to  its  alternate 
value. 
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00005 
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00011 

00014 
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CATE   6/28/71 


60 


0 
0 
LLAR 


ENTRY 

DISPL 

255, 

ENTER 

OF  TW 

POSIT 

ON  TH 

DETER 

LOADE 

ENTRY 

SERVI 

IS  IN 

VERSE 

FIN 
PTLST 
INT 
IODD 


THIS 

TO  T 
AY  FJ 
IT  IS 
ED  IN 
EAR 
ION  C 
E  RIG 
MINE 
D  INT 
IS  L 
NG  TH 
CREME 
D. 


MIXED 
HE  SC 
LE  CO 
PF  IN 
Tt-E 
EGIST 
N  THE 
HT.  T 
WHERE 
O  THE 
OACED 
E  CON 
NTED 


FOpT 

AN  MC 

NSTAN 

TED  C 

FILE. 

ER«  A 

LEFT 

HE  SL 

TO  S 

LEFT 

INTO 

TENTS 

BY  J  . 


RAN. I 
DE  DI 
TS. 
UT  AN 
AFT 
24  B 
AND 
RROUT 
TORE 
HALF 
THE 
OF  T 
IN 


LLAR  SUBR 
SPLAY  FIL 
IF  THE  IN 
D  THEN  TK 
ER  GENERA 
IT  ENTRY 
AN  8  BIT 
INE  CHECK 
THE  ENTRY 
OF  BUF(I 
RIGHT  HAL 
HE  LEFT  H 
BOTH  CASE 


OUTINE  GENERATES  A  SINGLE 
E,  6UF.  ANC  UPDATiS  Ttffc 
TENSITY  IS  GREAIEK  lHAN 
UNCATEn  TO  255  BEHORE  BEING 
TING,  IN  THE  RIGHT  HALF 
CONSISTING  OF  A  12  Bl I  X 

intensity  right  just  it  ied 

S  THE  ICDD  PARAME1ER  10 

IF  iCDDaO*  THE  ENTKY  IS 
PTR).   IF  I0DD«1#  THE 
F  OF  Bi)F(  IPTR),  WMILE  PRE' 
ALF  OF  THAT  WORD,  AND  IPTR 
S  THE  VALUE  OF  IODD  IS  RE- 


IPTR   - 
ISCOPE* 

IX 

MASKl  ■ 

MASK2  « 


TITLE* 


INTENSITY  CF  NEW  ENTRY  IN  DISP.  BUFF.(FLT.  PT.)i 

intensity  zf   previous  entry  in  display  buff8r. 
intensity  cf  new  entry  in  display  buff . ( f i xid )  . 
0  if  left  half  of  current  buff  .  word  is  to  8.0ntain 
new  entry,  «l  if  right  half  cf  clrrent  buffer  word 
is  tc  contain  entry, 

clrrent  word  in  buf  to  be  loaded  with  a  nbw  entry, 
blffer  l9ec  to  hold  scan  fode  display  buf^eh.  feach 
wcrc  in  isccpe  contains  two  24-bit  display  intr'ies. 
x  position  cf  new  entry  in  disp.  buff  .  c f  i  xefi )  . 
hash  used  tc  load  right-mcst  12  rlts  of  the  a  rbg. 
with  the  intensity  value  cf  the  current  entsy. 

fASK  USED  TC  LOAD  LEFT-MOST  24  BITS  CF  THE  A  «E«. 
MTM  THE  LEFT  HALF  OF  BUF(IPTR)  gHEN  IODD«l. 


CONVERT  CURRENT  INTENSITY  TO  FlxED  POINT  AND  UBDATIl  FLIN, 
IF  FIN  IS  GREATER  THAN  255CTHE  MAXIMUM  A| LOWED  INTENSITY), 
TRUNCATE  'THE  FIXED  POINT  INTENSITY  VALUE  TO  255.   TWEN  MAKE  AN 
ENTRY  ONLY  IF  THS  PREVIOUS  ENTRY  WAS  NOT  255. 


IF  (FIN  -  255,  ) 

INT  ■  255 

OVFl  *  OVFL  ■*  1 

IF  (PTLST  -  255. ) 

INT  ■  FIN 

PTLST  «  FIN 

LCA  IX 

ALS  12 

LDQ  MASKl 

ACL  IINT 


70»  70.  60 


80.  200.  200 


LOAD  12 
SHIFT  X 


BIT  X  POSITION  VALUE: 
VALUE  TO  POSITIONS  2* 


THRU  12 


LIL 


I'FTR 


MASK  OFF  ALL  BUT  LOW  QHDIR  12  BITS  OF 

INTENSITY  AND  ADD  IT  Tfl  SHIFTED  X  VALlE 
TO  GET  A  24  BIT  X  VALUE- 1 N TENS  I TY  PAIR. 

LOAD  IR1  FOR  ijSE  IN  ACCESSING  BUM  IPTR). 


1U6 
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RIGHT 


LEFT 


00021 
00022 
••FORTRAN 


MAS 
MAS 
OUT 
--F 
20 


Kl 
K2 


LDQ 
O-P 
LDQ 
ACL 
STA 
RAO 
RSO 
SLJ 
ALS 
STA 
RAO 
SLJ 
OCT 
OCT 
IM 


ORTRAN 
0     RETURN 
END 


I'CDD 

0  LEFT 
MSK2 

1  ISCOPB 
1   ISCOPE 

IFTR 
I'CDD 

0  OCT 
2* 

1  ISCOPE 
KDD 

0   OIT 

0000000000001777 
7777777700000000 


IF  IODC  ■  0. 

LOAl  PAIR  INTO  LEFT  HAL»-  UF  WURU. 

ADD  LEFT  HALF  CF  ISCOPE(IPTR)  TO  A  HEG, 

RESTORE  2  ENTRIES  IN  A  RiG.  10  IbCOPtdFRI 

INCREMENT  IPTR  BY  1. 

DECREMENT  IODD  BY  1.     IE.  SfcT  IT  10  0. 

UNCONDITIONAL  vUMf  TO  OUT. 

SHIFT  ENTRY  To  LEFT  HALF  OF  A  REb. 

STORE  fcNTRY  In  LEFT  HALF  OF  I  SCOPE (  I  PTK ) . 

INCREMENT  IODD  BY  1,     IE.  SET  IT  10  1. 

UNCONDITIONAL  wUMp  TO  UUT. 


NO  OPERATION. 
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7.6  HEDBUF  (FI,  IXX,IY,BUF) 

This  subroutine  is  used  to  produce  the  "heading"  for  a  display- 
buffer  containing  commands  to  the  CRT  for  a  variable  intensity  TV-type 
scan  display.   The  subroutine  has  as  parameters,  the  initial  intensity, 
FI,  the  initial  x  position,  IX,  the  initial  y  position,  IY,  and  the 
buffer  to  be  used  by  the  CRT,  BUF.   These  data  items  are  then  arranged 
in  the  order  as  shown  in  figure  7.6.1. 

This  subroutine  work  is  extremely  simple  and  consists  mainly 
of  shifting  and  masking  in  data  to  generate  the  first  word  of  the  buffer, 
The  zeroth  word  is  simply  loaded  with  all  l's.   This  is  essentially 
a  command  to  the  CRT  which  lets  it  know  that  a  mode  change  command  will 
be  coming  next. 

Once  the  zeroth  and  first  words  have  been  loaded,  HEDBUF  sets 
IPIR  =  2  and  IODD  =  0  to  indicate  to  the  ENTRY  subroutine  that  the  next 
entry  is  to  be  loaded  in  the  left  half  of  the  2nd  word  in  the  display 
buffer.   PTLST,  the  last  intensity  loaded  into  the  buffer,  is  set  to  the 
initial  intensity  specified  in  the  mode  change  command  word.   Then  the 
routine  returns. 


1U8 


48 


11   1 
I     I    I 


1    1    1 


zeroth  word 


48        45  44 


36  35 


24  23 


12  11 


1000 

Io 

A 

X0 

Y0 

1st.    word 


where 


Io    = 


A      = 


*o    = 


Y0    = 


initial  intensity- 
step  size  between  display  points 
initial  X  position 
initial  Y  position 


Figure  7.6.1   Format  for  the  first  2  words  of  the  display  buffer  when  used 
in  the  variable  intensity  scanning  mode 
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SUBROUTINE  t-EDELF  <FI  ,  IXX,  IY,  BUF) 

THIS  SUBROUTINE  GENERATES  THE  ZEROTH  ANC  FIRST  WORDS  IN 
THE  CRT  C ISFL AY  BUFFER  WHICH  CONTAIN  THE  NECESSARY  60MMANDS  TO 
START  A  SCAN  MODE  CISPLAY.   THE  INITIAL  INTENSITY,  AND  I  HE 
INITIAL  X  ANC  Y  POSITIONS,  IX  AND  IY,  ARF  GIvEN  AS  RARaMETEKS. 
THE  SUBRCUTHNE  LOACS  THE  ZEROTH  wCRD  CF  BUF  wITH  ALL  ONbS,  WHICH 
PREPARES  THE  CRT  DISPLAY  TO  ACCEPT  A  MODE  CONTROL  WORD.   THfcN 
IT  USES  ^ASKING  ANC  SHIFTING  TO  CCNSTRUCT  IN  THE  A  SEGISTER,  THE 
PROPER  MCCE  CONTROL  WORD  AND  INITIAL  SCAN  POSITION,   THIS  IS  THEN 
STCRED  IN  THE  FIRST  ENTRY  IN  BUF.   THE  SuBROLTlNE  ALSO  INITIALIZES 
PTLST,  ICCD,  ANC  IPTR. 
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7.7  DISPLAY 

DISPLAY  is  a  general  purpose  oscilloscope  output  routine  for 
alphanumeric  and/or  graph  plotting.   It  is  a  CSL  ILLAR  system  program 
which  was  written  by  Donald  Lee  and  Charles  Arnold.   Graphing  features 
include  automatic  normalization  of  data  points;  automatic  axis,  hash, 
or  grid  plotting;  point,  line  segment,  or  connected  line  modes;  special 
matrix  plotting;  polar  coordinates  and  features  allowing  multiple  graphs. 

The  use  of  the  DISPLAY  subroutine  has  been  directly  incorporated 
into  the  CSL  FORTRAN  system  by  adding  several  new  statements  to  the  FORTRAN 
compiler  to  facilitate  its  use.   For  alphanumeric  plotting,  DISPLAY  is 
controlled  by  a  FORTRAN  FORMAT  statement  and  follows  the  conventions  of  the 
FORTRAN  FORMAT.   To  control  graphing  options  and  modes,  the  FORMAT  statement 
is  also  used  in  an  extended  form.   The  FORMAT  statment  number,  the  address 
of  the  buffer  into  which  the  display  buffer  is  to  be  packed  (which  is  an  array 
in  the  user's  program),  the  maximum  length  of  the  buffer,  and  the  buffer 
pointer  are  transmitted  to  DISPLAY  by  the  following  statement: 

DISPLAY  100  ( BUFFER, BUFLING,IPOINT) 
where  100  is  the  format  statement  number,  BUFFER  is  the  name  of  the  array 
in  the  user's  program  into  which  the  display  buffer  is  packed,  BUFLING  is 
the  maximum  length  of  the  buffer  (usually  an  integer  constant),  and  IPOINT 
is  the  name  of  an  integer  variable  which  is  updated  by  DISPLAY  and  is 
equal  to  the  length  of  the  buffer.   IPOINT  is  not  to  be  changed  by  the 
user;  however,  it  may  be  referenced  to  obtain  the  buffer  length. 

In  order  to  transmit  data  which  may  be  needed  by  the  FORMAT 
statement  (e.g.  origin  coordinates,  maximum  and  minimum  coordinate  values, 
etc.)  this  statement  can  be  written  as: 

DISPLAY  100  (BUFFER,  BUFLING,  IPOINT) /LIST 
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where  LIST  may  be  any  conventional  FORTRAN  list  format.  Also  signed 
and  unsigned  constants  are  recognized. 

To  transmit  data  to  the  display  once  the  subroutine  has  been 
set  up  by  one  of  the  above  statements,  the  following  statement  can  be 
used: 

DISPLAY /LIST 
where  LIST  is  again  defined  as  above.   In  this  case  LIST  will  contain 
the  data  needed  to  specify  the  successive  display  points.   This  state- 
ment may  be  repeated  several  times  or  it  may  be  part  of  a  DO  loop 
generating  display  data. 

If  the  user  wishes  to  change  formats  in  the  construction  of 
a  single  display  buffer,  the  following  statement  is  used: 

DISPLAY  100 
or        DISPLAY  100 /LIST 

where  100  is  the  format  statement  number.   All  graph  options  are  reset  to 
standard  values  by  this  statement.   This  statement  may  be  necessary  if 
more  than  one  graph  is  being  displayed  at  once  or  if  the  graphing  mode 
is  switched.   Note  that  the  buffer  array,  buffer  length  and  buffer  pointer 
need  not  and  must  not  be  used  if  the  format  is  changed  in  the  construction 
of  a  single  buffer.   This  information  is_  transmitted  if  an  entirely  new 
graph  is  desired. 

Once  the  complete  set  of  display  data  has  been  generated,  the 
CRT  can  be  initiated  by  the  statement: 

DISPLAY 

In  addition  to  controlling  the  input  of  alphanumeric  information, 
the  FORMAT  statement  (as  it  is  specially  extended  in  CSL  FORTRAN)  may  be 
used  to  specify  display  options,  and  the  placement,  size,  and  intensity  of 
alphanumeric  information. 
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A  graph  mode  display  option  must  be  given  if  a  graph  is 
desired,  but  all  other  options  may  be  omitted  if  the  standard  parameters 
are  desired.   The  display  options  are  introduced  by  the  character  '*'  (5*+B) 
in  the  FORMAT  statement.   For  example: 

100  FORMAT ( 7HEXAMPLE*GRAPHM0DE , AXES ) 

indicates  that  there  is  an  alphanumeric  heading  "EXAMPLE"  and  that  the 
graphing  mode  is  GRAFMODE  and  that  axes  are  desired.   All  data  points 
received  by  DISPLAY  -will  be  interpreted  according  to  the  GRAFMODE  mode, 
unless  the  format  is  changed.   Thus  the  number  of  points  in  the  graph 
need  not  be  specified. 

Alphanumeric  statements  and  display  options  may  be  mixed  where 
necessary.   The  '*'  character  indicates  that  the  interpretation  is 
switched,  for  example: 

100  FORMAT ( *Y0RG*7HEXAMPLE*GRAFM0DE ) . 
The  initial  '*'  indicates  that  the  following  information,  up  to  the  next 
'*'  is  display  option  information.   The  second  '*'  indicates  a  switch  to 
alphanumeric  format,  and  the  third  '*'  switches  back  to  display  options. 
(YORG  controls  the  Y  direction  orientation  of  alphanumeric  information, ) 
A  restriction  on  the  use  of  switching  the  format  interpretation  is  that 
no  switch  may  be  made  after  the  graph  mode  is  set.   In  other  words,  the 
graph  mode  must  be  given  in  the  last  set  of  display  options.   Display 
options  may  be  given  in  any  order.   However,  those  options  requiring  a 
parameter  to  be  supplied  must  be  in  the  same  order  as  the  parameter 
information,  similar  to  the  standard  FORTRAN  format. 

In  the  CSL  display  system  there  are  a  variety  of  graph  options 
available.  For  the  purposes  of  this  report,  however,  only  the  most  commonly 
used  (in  the  Speech  Display  system,  at  least)  will  be  described.   These 
include:   GRAFMODE,  LINEMODE,  CLINEMOD,  and  CHARMODE. 
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In  the  GRAFMODE  option,  the  data  entries  are  interpreted  as 
alternate  X  and  Y  entries.   The  values  may  he  either  floating  point  or 
integer  entries,  as  specified  hy  the  format  statement.   The  entries  are 
normalized,  converted  into  scope  coordinate s  and  packed  into  a  buffer. 
The  coordinates  are  displayed  as  points. 

LINEMODE  is  the  line  segment  mode.   Data  is  entered  in  four 
element  groups:   XI,  Yl,  X2 ,  Y2.   This  group  defines  a  single  vector  on  the 
scope.   Data  may  be  either  floating  point  or  integer,  as  specified  in 
the  FORMAT  statement.   The  entries  are  normalized,  converted  into  scope 
coordinates,  and  packed  into  the  buffer.   CLINEMOD  is  the  continuous  line 
mode  and  is  the  same  as  LINEMODE  except  that  data  is  entered  in  tvc 
element  groups  each  group  defining  a  line  with  the  previous  group  as  its 
origin. 

In  the  CHARMODE  option,  each  data  entry  is  treated  as  a  BCD 
word.   The  program  must  insert  its  own  carriage  return  characters  (32b). 
The  options  XORG,  YORG,  SIZE,  XS,  S,  M,   and  L  can  be  used  to  specify 
the  characters'  placement  and  size. 

In  addition  to  the  graph  mode  options,  a  variety  of  options  are 
provided  by  DISPLAY  to  control  intensity,  letter  size,  portion  of  scope 
face  containing  graph,  automatic  axis,  hash  mark  and  grid  plotting,  values 
to  be  treated  as  maxima  and  minima,  interpretation  of  data  coordinates, 
integer  or  floating  point  mode,  and  others.   No  option  need  be  given  unless 
it  varies  from  the  standard  parameters.   Some  of  the  most  commonly  used 
options  which  do  not  require  the  user  to  supply  parameter  information  are: 
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AXES 


HASH 


POLAR 


TRUNCATE 


11,12 ,I3,lU 


Specifies  that  data  is  treated  as  integers.   If  not  set, 
floating  point  is  assumed. 

Axes  will  be  drawn  through  the  point  specified  by  X0 
and  Y0.   If  X0  and  Y0  are  not  given,  the  point  is 
assumed  to  be  (0,0).   An  axis  or  hash  mark  that  would 
be  off  the  screen  is  discarded. 

Hash  marks  will  be  drawn  on  the  axes.   It  is  not  necessary 
to  specify  AXES  with  HASH;  the  axes  will  automatically  be 
plotted.   To  locate  where  the  marks  are  plotted,  n  is 
calculated  such  that  10   <  maxvalue-minvalue  _<  10 
Marks  are  then  plotted  at  units  of  SETXHASH  X  10n  1 
(or  SETYHASH).   If  SETXHASH  or  SETYHASH  is  not  given, 
the  value  is  assumed  to  be  1.   This  results  in  from  11  to 
100  hash  marks  on  each  axis. 

Indicates  that  data  is  to  be  treated  as  polar  coordinates 
(r,  theta).  Data  must  be  floating  point.  Cannot  be  used 
in  the  increment  modes. 

When  XMAX,  M1N,  YMAX,  or  YMIN  are  specified  (see  below) 
data  entries  falling  outside  the  specified  range  are  set 
to  the  given  maximum  or  minimum. 

Scope  intensity  level,  initialized  to  II.   The  intensity 
setting  will  control  all  intensities  up  to  the  next  in- 
tensity setting.   For  example, 

100    FORMAT  (*li+*THEXAMPLE*I  3,  AXES,  12, HASH,  II,  GRAFM0DE) 
will  cause  the  alphabetic  information  to  be  displayed  at  the 
highest  intensity,  iU,  the  axis  at  13,  the  hashmarks  at  12, 
and  the  graph  at  II. 
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XS,S,M,L         Extra  small,  small,  medium,  large.   Sets  size  of  letters, 

initialized  to  M.  The  following  example  shows  how  two 
letter  sizes  can  be  specified  in  one  format  statement: 
100  FORMAT(*5HSMALL/*L*5HLARGE) 

Note  that  the  letter  size  must  precede  the  alphanumeric 
information  that  it  is  to  govern.   Once  set,  the  letter 
size  remains  so  unless  another  letter  size  option  is 
encountered,  or  a  new  format  is  set. 

The  following  options  require  the  user  to  supply  parameter 
information  in  a  parameter  list. 

XMAX  Used  to  specify  the  first  value  of  the  maximum  X  value. 

If  a  data  item  is  found  that  is  larger  than  this  value, 
the  larger  data  item  is  used  as  the  new  maximum  X  value, 
unless  TRUNCATE  is  set,  in  which  case  the  larger  value 
is  ignored. 

YMAX,XMIN,YMIN    Used  like  XMAX. 

X0,Y0  Specifies  the  origin  of  the  AXES.   Initialized  to  (0,0). 

The  parameter  data  is  integer  or  floating  point  as 
specified  in  the  FORMAT  statement. 

SETXHASHjSETYHASH  Specifies  the  unit  used  in  plotting  hashmarks.   See  HASH. 

Parameter  data  is  integer  or  floating  point  as  specified 
in  the  FORMAT  statement. 
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SETXMAX,SETXMIN 
SETYMAX,SETYMIN 


XORG,YORG 


LENGTH 


Sets  the  "boundaries  on  the  scope  face  on  to  which 
the  graph  will  be  drawn.   Initial  values  are 
7777"b,0,7777"b,0.   The  parameter  must  be  actual  scope 
coordinates.   These  options  are  useful  for  plotting 
graphs  side  by  side  or  separating  a  graph  from 
alphabetic  information. 

Scope  coordinates  of  the  first  letter  of  alphanumeric 
data.   Initialized  to  0,7777b.   XORG  or  YORG  must 
precede  the  alphanumeric  format  that  it  is  to  govern 
in  the  format  statement.   For  instance, 
100    FORMAT (*X0RG, YORG* 7HEXAMPLE) 

The  number  of  characters  per  line,  initialized  to  60. 
The  following  table  gives  maximum  line  length 
corresponding  to  each  letter  size: 
XS  -  133 

S  -  96 

M  -  6U 

L  -  32 
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7.8  ACTSCOPE( BUFFER, 'LENGTH,  MODE) 

This  subroutine  activates  the  display  buffer,  BUFFER,  of 
length,  LENGTH.   If  MODE  is  positive,  the  buffer  will  be  treated  as 
a  circular  buffer  and  will  be  displayed  continuously.   If  it  is  negative, 
it  will  be  displayed  once. 

ACTSCOPE  is  used  by  the  DISPLAY  subroutine  and  can  also  be  used 
by  any  other  programs  which  construct  their  own  display  buffers  from 
scratch  (e.g.  SPDISP). 

When  using  ACTSCOPE  to  produce  a  continuous  display,  all 
system  routine  output  to  the  printer  will  automatically  turn  the  scope 
off  before  printing  and  turn  it  back  on  after  printing  a  single  line. 
This  is  necessary  since  the  printer  and  CRT  are  on  the  same  output 
channel. 
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7.9  STOPSCOP 

This  subroutine  is  used  to  halt  the  operation  of  the  CRT. 
It  must  be  used  whenever  a  new  graph  is  to  be  constructed  in  a  buffer 
which  is  currently  being  used  by  the  CRT,  or  in  any  case  where  the 
buffer  may  be  written  upon.  Otherwise  all  hell  will  break  loose  since 
the  display  will  continue  to  interpret  whatever  is  in  the  buffer  as 
display  commands. 

The  subroutine  itself  is  extremely  simple  since  its  main 
component  is  a  single  machine  instruction  which  inactivates  the  CRT 
out  put  channel. 
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7.10  PHOTO (N) 

This  subroutine  is  used  to  take  a  photograph  of  the  current 
"buffer  being  displayed  by  an  ACTSCOPE  call  or  of  the  last  such  buffer 
to  be  displayed  if  the  display  is  currently  off.   The  subroutine  opens 
the  camera  shutter  and  exposes  the  display  N  times  before  closing  it 
again. 
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7.11  WHATNOW 

WHATNOW  is  an  entry  point  to  the  DISPLAY  subroutine  which 
allows  the  operator  to  modify  the  display  on  line,  photograph  it,  exit 
to  the  main  system,  or  simply  to  look  at  the  display  before  continuing 
in  the  program.  When  it  is  entered  for  the  very  first  time,  it  produces 
the  following  comment  on  the  typewriter: 

type  p,c,a,d,r ,s,af ,rf ,  or  period. 
* 

At  this  time  the  operator  may  type  one  of  these  options  and  a  carriage 
return  and  the  respective  operations  as   described  below  will  be  performed. 
Alternatively,  the  operator  can  type: 

noret 
and  a  carriage  return.  This  will  eliminate  the  need  for  carriage  returns 
in  all  future  use  of  the  WHATNOW  subroutine.   Note  that  this  option  is  only 
valid  on  the  very  first  use  of  WHATNOW  when  the  message  is  printed  out. 
No  matter  what  option  is  chosen  on  this  first  call,  successive  calls  will 
not  print  the  message. 

The  actions  resulting  from  the  various  WHATNOW  options  are 
as  follows : 

exit  to  the  main  system, 
c  continue  to  the  next  statement  in  the  user's  program  after 

the  call  to  WHATNOW. 
p         take  a  picture  of  the  scope  display.   The  scope  camera  must 

be  on  and  ready, 
a         add  a  line  of  heading  to  the  scope  display.   WHATNOW  will  type: 

xorg  = 

The  user  then  types  a  four  digit  number  less  than  i+096,  which 
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will  become  the  x  coordinate  of  the  lower  left  corner  of  the 

first  word  to  be  displayed. 

WHATNOW  will  then  type: 

yorg  = 

and  the  user  supplies  the  y  coordinate  of  the  lower  left 

corner  of  the  first  word  to  be  displayed.   Again,  a  four 

digit  number  if  required.   WHATNOW  will  then  type 

xs ,s ,m,l-size  = 

to  determine  the  letter  size,  extra  small,  small,  medium 

or  large.   Simply  type  one  of  the  letters.   WHATNOW  will 

now  type  a  minus  sign  indicating  it  is  ready  for  the  line 

of  heading.   A  full  line  consists  of  120  xs ,  96  s,  6k   m, 

or  32  1  sized  letters.   If  a  typing  mistake  is  made,  a  space 

followed  by  a  carriage  return  will  delete  the  whole  line  and 

it  may  be  retyped.   Otherwise  the  line  will  appear  on  the 

screenafter  making  a  carriage  return.   This  line  may  be 

replaced  or  deleted  by  other  directives.   After  the  line  is 

displayed,  an  asterisk  will  be  typed  and  WHATNOW  'Jill  await 

a  new  directive. 

r         This  directive  works  just  as  'a'  does,  except  the  line  typed 
is  used  to  replace  the  last  line  added  to  the  display  with  an 
'a'  directive. 

af         This  works  just  as  'a'  does  except  that  XORG  and  YORG  are  given 

as  unnormalized  data  coordinates.   If  the  data  is  floating  point, 
the  number  is  read  in  E8.2  format.   If  the  data  is  integer,  an 
110  format  is  used. 
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rf        This  works  just  as  'r'  except  that  XORG  and  YORG  are 

specified  as  in  'af  . 
d         The  last  line  added  "by  a  directive  is  deleted, 
s         All  lines  added  by  directives  are  deleted. 
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Section  8 
SPEECH  PROCESSING  ROUTINES 

The  Speech  Processing  Routines  are  a  collection  of  sub- 
routines used  by  the  Speech  Display  routines  to  produce  the  various  types 
of  displays.   They  are  usually  somewhat  general  in  nature  and  in  many 
cases  are  used  by  several  different  speech  displays.   The  idea  is  that 
they  should  be  a  type  of  universal  speech  processing  building  block. 
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8.1   ZCRPIC  (BUF,  ZERO,  NUM,  PBUF,  FINDX,  LIMIT,  REM) 

This  subroutine  finds  the  positions  at  which  the  data  in 
the  input  buffer,  BUF,  crosses  the  zero  level  defined  by  ZERO.   It  scans 
the  input  data  beginning  with  BUF(O).   When  it  finds  a  zero  crossing  it 
calculates  the  interpolated  distance  (in  time)  from  the  last  previous 
crossing  and  converts  this  to  an  equivalent  frequency  (in  cps.)  which  is 
stored  in  the  array  PBUF,  beginning  with  location  0.   It  also  stores  the 
position  of  the  crossing  in  time  (sees.)  with  respect  to  the  beginning 
of  the  buffer,  BUF,  in  the  corresponding  entry  of  the  floating  point 
array  FINDX.   After  NUM  intervals  from  BUF  have  been  processed,  the 
subroutine  loads  LIMIT  with  the  number  of  zero  crossings  which  have 
been  detected  and  returns.   Note  that  at  this  time  REM  will  contain  the 
distance  (in  time)  from  the  last  zero  crossing  to  the  end  of  the  buffer, 
BUF. 

The  actual  detection  of  the  zero  crossings  is  performed  by 
calculating  the  distance  of  each  point  above  the  zero  level  and  then 
taking  the  products  of  the  pairs  of  endpoints  for  each  interval.   A  zero 
crossing  occurs  whenever  the  signs  of  the  pair  are  different  and  this 
will  result  in  a  product  sign  of  "-".   When  it  is  determined  that  an 
interval  contains  a  zero  crossing,  the  actual  interpolated  crossing  point 
is  calculated  using  the  equation  derived  from  the  calculations  in  figure 
8.1.1. 

A  special  situation  occurs  in  the  case  of  a  point  lying  on 
the  zero  level  line.   In  this  case,  the  point  will  cause  the  two  adjacent 
pairs  to  produce  products  of  zero.   The  program  has  been  written  so  that 
the  initial  pair  will  be  considered  to  have  a  zero  crossing  at  its  second 
end  point,  but  the  second  pair  (and  all  subsequent  pairs,  if  several 
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Figure  8.1.1  Finding  the  Interpolated  Position 
of  a  Zero  Crossing  Point 
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zero  points  occur  together)  will  be  ignored.   This  implies  two  constraints 

1.  Maxima  or  minima  points  occurring  on  the  zero  level 
line  will  be  considered  to  be  one  zero  crossing 
when  in  fact  the  signal  did  not  really  cross  the 
line. 

2.  If  the  signal  remains  on  the  zero  level  for  several 
successive  points  only  one  zero  crossing  will  be 
counted. 

Although  these  constraints  are  not  the  only  possible  ones,  they  are  just 
as  reasonable  as  any  alternatives. 
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00003 


00010 
00014 


00015 


00023 
00030 
00034 
00040 
00041 


00043 


CSL  FORTRAN  OF  SEPT  1«68,   TATE   9/9/71 
SUBROUTINE  ZCRFICCBUF.  7ER0,  NUM, 
C 

C  THIS  Sl'EROLTUE  IS  USED 

C  POINTS  IN  THE  INPUT  BUFFER.  B 

C  FINED  BY  THE  INPUT  PARAMETER, 

C  BEGINNING  W I Th  THE  ZERCTH  POS 

C  THE  INTERFOL'TEE  DISTANCE  FRO 

C  EQUIVALENT  I  N S T A  NT  A K EOIS  FREQ 

C  TO  THE  PRESENT  CROSSING  IS  ST 

C  POINT  POSITICN  CF  THE  CROSSIN 

C  TO  THE  TlfE  CF  THE  INITIAL  PO 

C  PBLF  AND  FINCX  ARE  LOACED  BEG 

C  NU^  INTERVALS  HAVE  BEEN  PROCE 

C  LIMIT  WITH  THE  MJMFER  CF  Z&RO 
C 


10 


00021  2«U 
C 
C 
C 
C 
C 

c 
c 


25U 


P6UF,  FInDX,  LIMIT,  REM) 


TO  EXTRACT  THE  ZERO  CROSSING 
UF,  LSING  THE  ZERO  LfcVEL  DE- 

ZERC.   IT  SCANS  THE  INPUT  DATA 
I T ION  IN  BUF,  ANC  CALCULATES 
M  THE  LAST  7ER0  CROSSING.   THE 
UENCY  FRCM  THE  PREVIOUS  CROSSING 
URED  IN  FBUF,  WHILE  THE  FLOATING 
G  (IN  NO,  OF  SAfFLES),  WITH  RbbHEC 
INT  IN  BIF  TS  STCRED  IN  V   INDX. 
INNING  WITH  LOCATION  0.   AFTER 
SSED,  THE  SUEROITINE  LOADS 

CROSSINGS  DETECTED  AND  RETURNS. 


TITLE* 

DIMENSION  BLMl).  FEUFtj.),  FINDX(i) 

J  =  n 

F  IR   =  BLF(0  )  "  ZERC 

PROCESS  NSAMT  INTERVALS  IN  BLFF  LOOKING  FCR  ZERO  CROSSINGS 


DO  299,  1=1, 
SEC  =  BUF (  I  ) 


NUM 

-  ZERf 


THE 


CHECK 
SIGNAL 


TH£  SIQk  OF 
CFCSSED  THE 


THE  PRODUCT  OF  FIr  ANC  SEC  TO 
7ERO  LEVEL  DURING  THE  CLRRtNT 


SEE  IF 
INTERVAL 


IF  (FIR*SEC) 


250.  240.  275 


IF  THE  FROCUCT  OF  THE  ENDPOINTS  IS  7ERO,  ONE  OF  IhEM  MUST 
BE  ZFRO.   CCLNT  IT  AS  A  ZERO  CROSSING  INTERVAL  ONLY  IF  FIR  IS 
NOT  ZERO.   THIS  ENSLPFS  THAT  A  POINT  TOUCHING  THE  ZERO  LEVEL 
WILL  ONLY  BE  COLNTFC  AS  ONE  ZERO  CROSSING. 


IF  (FIR) 


250»  275.  250 


IF  THE  FROCUCT  OF  THE  ENDPOINTS  IS  -,  THE  SIGNAL  MUST  HAVE 
CROSSED  THE  2ERC  LFVFL.   THEREFORt  CALCUlATb  THE  DISTANCE  Of  THfc 
CROSSING  POINT  FROM  THE  INITIAL  ENDPOINT  AND  ADD  THIS  CISTANCE 
TO  REM  BEFORE  CALCLLATlNG  THE  FRECUENCY  FGUIvALENT  TO  THE  LtuGTF 
OF  TIHE  EETkEEN  THIS  CROSSING  AND  THE  LAST  PREVIOUS  CRCSSINb. 

RESIDUE  =  AESF(SEC*CTIHE/(FIR-SEC)  ) 
PBLF(J)  =  RE^  ♦  (CTIME  -  RESIDUE) 
FINDV(J)  =  I  -  RESICUE/DTIME 
PBUF(J)  =  .5/PBLF(^) 
REM  =  RESIDLE 


SET  THE  VALUE 
SING  FRO^  TF-E  FINAI 


CF  REM  EQUAL 
FNCPOINT  OF 


TC  THE  DISTANCE 
Tt-E  INTERVAL. 


OF  THfc  ZERO  CRUi 
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CS 

00045 

C 
C 
C 
C 
C 

00046 

00047 

00031 

00052 

00053 

00054 
'-FORTRAN 


I  FORTRAN  OF  SEFT  1 ?  6 8 , 
GO  TO  2*0 


CATE   9/9/71 


275 
290 
299 


IF  ThE  FfiOCUCT  OF  FIR  AND  SEC  IS  ♦ ,  THERE  IS  NO  ZERO  CHOSSIMb 
BETWEEN  THE  ENDPOlNTS.   THEREFORE  INCREMENT  REM  8Y  THb  LENGIH 
OF  ONE  SAMPLING  PERIOD. 


REM  =  REM 
FIR  =  SEC 
CONTINUE 
LIMIT  8  v 
RETURN 
END 


♦  tTlME 
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8.2  TZCRP 

This  program  tests  out  the  ZECPIC  subroutine.   It  is  used 
in  conjunction  with  the  TESTP  program  which  gets  the  actual  data  and  loads 
it  into  BUFF.   Then  TZCRP  uses  ZECPIC  to  process  the  data  and  prints  out 
the  results  on  the  printer.   It  also  displays  the  data  on  the  CRT  using 
cursor  lines  to  indicate  the  zero  crossing  points. 

The  exact  details  concerning  the  use  of  TZCRP  are  given  in 
the  comment  at  the  beginning  of  the  source  program.  Figure  8.2.1  shows 
an  example  of  its  operation  on  a  section  of  data. 
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Data  before  ZECPIC 


Data  with  zero  crossings  picked  by  ZECPIC 


Figure  8.2.1  Effect  of  ZECPIC  on  a  Section  of  Speech  Data 
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00004 
00005 
00006 
00023 


00024 
00041 


00045 
00060 
00063 


10 


100 


c 
c 
c 

00075 
00111 
00112 
00112 

00112 
-FORTRAN 


500 

501 


THIS  PRCGRAM  TESTS  THE  ZCRPIC  SUfiROljT  INE  .  IN  ORDER  TO  L0- 
THIS  PROGRAM,  TYPE  CUTi 

EXITCALL,  PROGRAM  TAPE,  TESTE,  T2CRP 

THE  SYSTEf  ULL  TYPE  TAPE  5,  IF  TKb  COMPLETE  LIBRARY  IS  NOT  ON 
THE  PROGRAM  TAPE,   IN  THIS  CASE,  TYPE  A  SPACE  PROVIDED  THE  KbS  : 
THE  LIBRARY  IS  INDFED  ON  TAPE  UNIT  5. 

ONCE  THE  PROGRAMS  ARE  LOADED,  TYPE  TESTp  AND  THEN  USE  I Hfc 
MAIN  PROGRAM  TO  SElECT  A  PORTION  CF  THE  DATA  TAPE  TO  bE  RUN. 
EXIT  FROf  THE  MAIN  PROGRAM  BY  TYPING  .   NEXT  TYPE  TZCRF  TO  BfcG 
THE  TEST, 

THE  TEST  CONSISTS  OF  DISPLAYING  THE  CAT*  WHICH  WILL  BE  PRI 
CESSED,  PROCESSING  IT.  PRINTING  OtT  THE  OUTPLT  ARRAYS  AND  THEN 
DISPLAYING  TFE  ORIGINAL  DATA  WITH  CURSORS  MARKING  EACH  DETEOTfcl 
ZERO  CROSSING  , 

TITLE* 

DIMENSION  PBIF(IOOO).  FlNDX(lOOO) 

EQUIVALENCE  <PBLF<1),  A(7003>>»  (FlNDX(i),  A(9003>> 

BUFF  CONTAINS  THE  DATA  TO  BE  PROCESSED,  hHILfc  NSAMT  INUIC'i 
HOW  MANY  POINTS  ARF  TO  BE  PROCESSED. 

CALL  ADJLS2CNSAKT,  -1 ) 

XB   =0.0 

FTMP  =  NSAMT 

CALL  DISSY(XE, BLFFMSAMPB), NSAMT,  ISCOPl, 4000. frTMP»1024.»0) 

CALL  HHATKO^ 

AFTER  CISPLAYIKG  THE  DATA,  PROCESS  IT  By  CALLING  ZCRPICT 

CALL  ZCRFlC<ELFF(I«AMPB),512.'NSAKT,PEuF.FlNEX(i>»LIM,REM) 
FINDX(O)  ■  L  IN 

PRINT  OLT  THE  CUTPUT  ARRAYS. 

PRINT  500,  (FEUF  |h,  I«o.  LIM) 

PRINT  501 

PRINT  500#  (F  INCXC  I  ),  1-0.  LIM) 

DISFLAY  THE  ZERO  CROSSINGS  ON  THE  CRT. 

CALL    DlSSY(FlNOX.BlFF<lSAMPB),NSAfT,ISCOP1.40Q0,FTMP,l024.,U> 
CALL    WHAHOk 
FORMAT     (2)«»lO(F9.2,lX>) 
FORMAT     (///) 
END 
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8.3   ORDER  (PBUF,  INDX,  NUM,  ISW1,  ISW2) 

This  subroutine  sorts  the  data  in  the  input  "buffers  PBUF 
and  INDX.   It  is  used  primarily  by  FORMEX  to  sort  formant  candidates  for 
processing,  in  which  case  PBUF  contains  floating  point  peak  values  and 
INDX  contains  the  corresponding  integer  index  positions  of  these  peaks. 
The  two  buffers  are  always  sorted  together,  i.e.  the  moving  operations 
are  performed  on  both  corresponding  entries  in  the  two  buffers.   ISW1 
determines  which  buffer  will  be  used  in  determining  the  new  order  and 
ISW2  determines  whether  it  will  be  sorted  high-to-low  or  low-to-high. 
NUM  indicates  the  number  of  entries  in  PBUF  and  INDX  which  are  to  be 
sorted. 
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CSL  FORTRAN  OF  SEPT  1?68,   CATE   6/28/71 

SUBROUTINE  CRCERCFRUF,  INDX,  NUM.  ISWl,  ISw2> 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 


00007 
00014 
00016 
00021 
00024 
00026 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00040 
00041 
-FORTRAN 


30 
4U 
45 
5U 
55 


100 


THIS  SL.EROITUE  SORTS  THE  DATA  IN  THE  INPUT  dUKFfcfib,  PbL^ 
AND  INDX.   PElF  IS  LSUALLY  AN  ARRAY  OF  F|  CAT ING  PUIkT  AMPLllUDfc! 
WHILE  I NCX  IS  AN  ARRAY  OF  FIXED  PClNT  INDEXES-   THE  SORTING  *S 
DONE  ON  EITHER  P9UF  OR  INDX  ACCORdNG  TO  THE  STATE  6F  ISWl,  WJTI 
THE  CORRESPONDING  ENTRIES  OF  THE  LNCHCSEn  ArrAY  BfclhG  SURTEU  SO 
THAT  THEY  MAINTAIN  THEIR  POSITIONS  WITH  RESPFjCT  TO  THE  bORTfcD 
ARRAY.    I SW2  DETERMINES  WHETHER  ThE  SORT  WILL  ARRANGE  THE  DATA 
FROM  HIGH  TC  LOW  OR  LOW  TO  HIGH. 


ISWl 
ISW2 


s  0 

=  1 

=  0 

=  1 


IF 
IF 
IF 
IF 


PBIF 
INDX 

SORT 
SORT 


IS 
IS 
IS 
IS 


TO  BE  SORTED, 
TO  RE  SORTED, 
HIGH-TO-LOW. 
LOW-TO-HIGH. 


DIMENSION  PElF(i),  INDX(D 
DO  100-  I=l# <NU^  -  i  ) 
100.  v.s(  I  ♦  i  )  ,  NUM 
(ISWl)     100.  40#  30 
(INDX(I)  -  INDX(W))     50 
(PBUF(  I  )  -  P£UF(W)  )     50 
(ISW2)     100.  100.   55 
<ISW2>     100.   55,  100 
=  PBLF(W) 
PBLF(  I  ) 
TMF 

I  N'  C  X  (  w  ) 
INCXC I ) 
ITMP 


DO 
IF 
IF 
IF 
IF 
IF 
TMF 

PBLF( J) 
PBUF(  I  ) 
ITMP 
INDX( J) 
INDX(  I  ) 
CONTINUE 
RETURN 
END 


100  * 

100# 


45 
45 
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Q.k     PITPIC  (BUF,  ZERO,  MJMP,  PBUF1,  INDX3,  LIMIT) 

The  algorithm  for  this  routine  is  based  on  a  pitch  extract- 
ing device  developed  at  Northeastern  University  by  L.  0.  Dolansky  [1955, 
1965,  1966  \      It  utilizes  a  filter  having  a  fast  rise  time  and  a  slow 
fall  time.  A  block  diagram  of  the  process  is  given  in  figure  8.4.1. 

The  process  begins  by  half-wave  rectifying  the  speech  input. 
The  rectified  signal  is  then  used  as  the  input  to  the  filter  which  will 
follow  the  rapid  initial  "attack"  of  a  pitch  period  and  then  slowly  drop 
during  the  rest  of  the  period.   Figure  8.4.2  shows  the  filter  output 
which  results  in  this  example.   By  applying  a  peak  picking  algorithm  to 
the  filter  output,  the  initial  starting  time  of  the  pitch  period  can  be 
detected  to  within  a  few  samples  (there  is  a  slight  delay  due  to  the 
filtering  process,  but  this  delay  is  virtually  a  constant). 

Unfortunately  there  is  a  small  problem  which  can  occur  if 
the  secondary  peaks  of  a  pitch  period  are  relatively  large  (as  is  quite 
often  the  case).   If  this  happens,  there  may  be  several  peaks  in  the 
filter  output  at  the  beginning  of  each  pitch  period  as  shown  in  figure 
8.4.3.   Dolansky' s  analog  device  removed  this  problem  to  a  certain 
degree  by  critically  adjusting  the  rise  and  fall  times  so  that  the 
secondary  peaks  would  not  affect  the  output.   However,  this  is  a  tricky 
task  and  was  not  entirely  effective.   By  making  use  of  the  digital 
computer's  versatility,  it  was  possible  to  eliminate  these  additional 
peaks  in  the  present  program  simply  by  calculating  the  pitch  period 
which  would  have  resulted  from  using  it  as  a  primary  peak.   In  the  case 
of  any  unreasonable  pitch  frequency,  the  second  peak  could  be  eliminated 
with  confidence. 


176 


Z> 

o 

/I 

(t 

=         o 

u  *•  »- 

FALS 
PEA 

IMINA 

:              _l 

LJ 

i 

w   ?; 

Q-     S£ 

Q. 

i 

l 

cr 

UJ 

i- 

_i 

u. 

i 

w     «_. 

>    o: 

<      UJ 

*    C 

U.     K 

_l     o 

<  y 

X   * 

41 

a, 
o 


u 

cd 

•H 

Q 
o 

o 

H 

PQ 


-3- 
OO 


a-    2 


177 


Figure  8.4.2  Peak  Picking  Filter  Output 


Figure  8.4.3  Peak  Picking  Filter  Output 
in  the  Case  of  Large  Secondary  Peaks 
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FORTRAN  OF  SEPT  1 ?  6  8  ,   CATE   6/28/71 
SUBROUTINE  FlTFICtBUF,  ZERO,  NUMP, 


FBUF1,  TNDX3'  LIMIT) 


THIS  SUEROITINE  IS  USED  TO  EXTRACT  THE  PITCH  PiAK 
POSITIONS  IN  THE  INPUT  BUFFER  BUF ,   IT  SCANS  THfc  INSU1 
DATA  BEGINNING  kITk  ENTRY  0#  AND  FINDS  TmE  APPROXIMATE 
POSITION  CF  THE  INITIAL  PEAK  IN  EACH  PITCH  PERIOD.   THE 
POSITION  IS  APPR0XIMATE<  IT  MAY  BE  OFF  BY  CNE  OR  TWO 
INDEX  POINTS),  EECALSE  A  FILTERING  TECHNIQUE  IS  USED 
WHICH  PRCCUCES  A  SHCRT  DELAY  IN  THE  RESPnNCE  OF  THE  SUB' 
ROLTINE. 

FOR  EACH  PITCH  PEAK  DISCOVERED,  THE  EQUIVALENT  IN- 
STANTANECLS  FITCH  FREQUENCY  FROM  THE  PREVIOUS  PITCH 

peak  to  the  current  peak  is  storel  in  thf  cofiREsPQNy ing 

ENTRY  IN  PBLF  WHILF  THE  INDEX  POSITION  OF  THE  CuRHEbT 
PEAK  IS  STORED  IN  TKDX,   PBUF  AND  INDX  ApE  BcTH  LOABED 
BEGINNING  WITH  0. 

AFTER  FFCCESSIKG  NUM  DATA  POINTS,  THE  SlBROUUkE 
LOADS  THE  NUMBER  OF  PITCH  PEAKS  FCUND  INTC  LIMIT  ANfi 
RETURNS. 


BF 

BR 

BUF 

EAF 

EAR 

ENVLP 

Fl 

FQMAX 


IBEG 
IEND 
IFILT 

INDX3 

INVL 
LIM3 


LIMIT 
NUM 

NUMP 
PBLFl 

PFREQ 
SAMF 
Y 
ZERO 


fall 
rise 

FARAM 

fall 

FISE 

SLBRC 

INSTA 

MAXIM 

ARE  F 

ThEM 

LCCAT 

LCCAT 

SUBRC 

FARAM 

PC  IN  T 

NLMEE 

index 
cltpl 

NLMEE 
FARAM 
NLMEE 
EFFIC 
FARAM 
FARAM 
F  I  TOH 
AVERA 
C  C  M  M  C 


TIME 
TIHE 
ETER 
TIHE 

TIME 
UTINE. 
NTANEr 
LM  ALI 
CUND  U 
MUST  E 
ION  In 
ION  Ik 
UTINE. 
ETER, 

OF  EA 
R  CF  T 

WITH! 
T  CF  T 
R  CF  P 
ETER(C 
R  CF  r 
ENCY  r 
ETER, 
ETER. 

FREQl 
GE  PIT 
N  VAR! 


CNSTANT 
eNSTANT 

INPUT 
CNSTANT 
CNSTANT 
FILTE 
LS  PITC 
CWABLE 
MICH  PR 
E  ELIMI 

BUF  OF 

RUF  OF 
IMTI 

OUTPUT 
CH  PITC 
NTERVAL 
N  INDX3 
h^  FILT 
EAKS  FO 
LTPUT)  . 
ATA  POI 
F  OPERA 

NUMBER 
CUTPUT 
ENCY  FO 
CH  FREQ 
ABLE. 


CALCULA 

CALCULA 

DATA  BUF 

CALCULA 

CALCULA 

RING  PRC 

H  FREQUE 

PITCH  FF 

ODUCE  A 

NATED. 

INITIAL 

FINAL  F 

ALIZATIC 

DATA  BL 

H  PERIOC 

S  BETWEb 

ARRAY  C 

ERING  Ph 

UND)  • 


TED  AND  USED  BY  F 

TED  AND  USFD  BY  F 

FER. 

TED  AND  USED  BY  F 

TED  AND  USED  BY  F 

GRAM  . 

NCY  PRODUCED  BY  T 

bQUENCY.    IF  TWO 

H1GFER  FITCH  FREQ 

PI  TCH  PEAK . 
ITCH  PFAK. 
N  ENTRY  POINT  FUR 
FFER  -  CONTAINS  L 

t 

N  PITCH  PEAKS  IN 
F  THE  I  AST  PEAK  F 
OGRAM.  (ONE  LESS 


1LTEHING  PROGRAM 
ILTEHING  PROGRAM 

ILTEHING  PROGRAM 
ILTEHING  PROGRAM 

WO  SUCCESSIVE  PE 
SUCCtSSIVE  PEAKS 
UENCY,  ONE  OF 


FIL IERING  PROG. 
0CAT1ON  UF  lNUl 

BUF. 

0UND  IN  IHE 

THAN  THE  ACTUAL 


NTS  IN  bUF  -  SFT  ECUAL  10  NUMP  FOH  INCRfc*: 
TION. 

of  data  points  in  buf. 
data  buffer  -  contains  i 
r  each  fitch  PERIOD. 
UENCY  OVER  BUF. 
SAMPLING  FREQUENCY  IN  FLOi 


bSTANTANbOUS 
ATlNG  POINT. 


=  PARAMETER,  ZERO  LEVEL  OF  LATA  -  TC  BF  USED  BY  RbCT  IM 


DIMENSION  BLF(l),  P6UFK1),  INDX3(1) 
TITLE* 

NUM  =  NUMP 
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0003 
0014 
0015 
0023 
0034 
0042 
0054 
0066 
0066 
0066 


CSL  FORTRAN  OF  SEPT  1*68,   CATE   6/28/71 
C 
C 
C 


21 


30 

31 
42 


45 

50 


55 


60 


75 

78 

19 
20 


INITIALIZE  FILTER  CONSTANTS. 


CALL  IFILT(,1*  NUH,  20.,  BR.  EAR,  Bf ,  EAF,  Y) 

FTMP  =  NIP 

CALL  RECTlFCBLjF,  ZERO,  NUM.  PBUFl) 

CALL  ENVLFtPELjFl.  NLM,  PBUFl,  BR,  EAR,  BF,  EAF,  Y) 

CALL  PEAPIC(FBUFl#  NUM.  PBUFl.  1NCX3,  LIM3) 

PRINT  30»  (PEUFl(I),  I«0.  LIM3) 

PRINT  31.  <^DX3(I>.  I"0.  LIM3) 

FORMAT  <2X»10(F9,2.1X)> 

FORMAT  <2X.lC<  I9.1X)) 

IBEQ  «  INCX3 (1 > 

NEXT  TRY  TC  ELIMINATE  FALSE  PEAKS  DuE  TC  SECUNCARY  PEAKS 
ASSUME  THAT  THE  PEAK  AT  INDX3<1>  IS  IN  FACT  A  VALID  PbAK. 
THEN  PROCEED  BY  CALCULATING  THE  EFFECTIVF  PITCH  FRE8UENWY  Bb- 
TWEEN  EACH  REMAINING  PEAK  AND  ITS  NEAREST  NEIGHBOR  EARLIER  IN 
TIME.  IF  ANY  PITCM  FREQUENCY  THUS  CALCUl  ATED  IS  TOO  HIUH,  b- 
LIMINATE  THE  ASSOCIATED  PEAK. 

FOMAX  8  500, 

DO  50.  Ja2»  HM3 

Fl  ■  SAMF/(I'hDX3(J>.!NDXS(J-l>) 

IF  (FOMAX  -  Fi)     43,  45,  50 

PBUFKJ)  «  0.0 

CONTINUE 


NOW  ELIMINATE  ALL  ZERO-VALUE 
VALUE  PEAK  L'CADED  INTO  ENTRY  0  OF 
ROUTINE, 


PEAKS,  INCLUDING  THE  KERO 
PBUFl  RY  TKE  PEAPiC  SUB- 


K  b  0 

DO  60.  Js0»  LIM3 
IF  (PBUFl(J))     55,  60,  55 
PBLFl(K)  «  PELFKJ) 
INDX3<K)  ■  I  N  D  X  3 ( J ) 
K  ■  K  *  1 
CONTINUE 
LIM3  p  K  ■•  1 
IEND  *  INCX3(LIM3) 
INVL  *  LIM3  "  1 
IF  (INVL)     75,  75.  78 
PFREO  a  o,0 
GO  TO  I? 

PFREO  ■  FLOATF( ISAvF*INVL)/( IEND  - 
PRINT  20.  PFREQ,  IPEG.  IEND,  LIM3, 
FORMAT  (2X.F12«2'7( Ii0i2X)  ) 
PRINT  31,  <  I  K  D  X  3 (  I  )  ,  I«o»  LIM3) 
LIMIT  «  LIM3 
RETURN 
END 


IBEG) 
INVL 


IAN 
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8.5   FFTB(NP,  N,  N2P0WT,  T,  IFLAG) 

This  program  is  the  descendant  of  a  fast  Fourier  transform 
program  originally  written  by  Gary  Horlick  at  the  Coordinated  Science 
Laboratory.   It  is  a  version  of  the  original  Cooley-Tukey  algorithm  which 
has  been  much  discussed  in  the  literature  (see  for  example,  Cooley  and 
Tukey[l965],  Gentleman  and  Sande[l966],  Cochran,  et  al.[l96T],  or  Brigham 
and  Morrow [ I967] ) .   Since  the  purpose  of  the  present  program  has  generally- 
been  to  analyze  real  data,  FFTB  has  a  provision  for  using  the  process 
described  in  Cooley [1966]  which  allows  the  program  to  analyze  twice  as 
much  real  data  with  the  same  time  and  storage  requirements. 

The  subroutine  utilizes  two  COMMON  arrays,  X  and  Y,  as  the 
real  and  imaginary  components,  respectively,  of  the  intermediate  processing 
array  and  also  as  the  final  output.   The  parameter  N  specifies  the  number 
of  complex  coefficients  which  will  be  used  in  X  and  Y  in  the  calculation. 
This  number  controls  the  number  of  output  frequency  samples  and  the 
spacing  between  them,  and  must  be  a  power  of  two. 

The  IFLAG  parameter  indicates  which  of  the  input  options  is 
being  used.   If  IFLAG  =  0,  the  data  is  assumed  to  be  purely  real  with  NP 
data  samples  stored  in  T.   In  this  case  NP  cannot  be  more  than  2  times  N. 
If  it  is,  the  additional  samples  in  T  are  ignored.   In  this  option  the  odd 
samples  are  loaded  into  the  real  processing  array  X  and  the  even  samples 
are  loaded  into  the  imaginary  processing  array  Y.   If  T  contains  less  than 
2N  points,  the  unfilled  points  in  X  and  Y  are  loaded  with  zeros.   Then 
normal  processing  is  performed  as  if  X  and  Y  contained  N  complex  input 
samples. 

At  the  end  of  the  processing,  in  order  to  get  the  coefficienl 
for  the  real  data,  as  opposed  to  the  artificial  data  which  was  constructed 
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in  the  X  and  Y  arrays,  another  transformation  must  he  performed.  The 
derivation  for  this  transformation  and  its  FORTRAN  implementation  are 
given  in  Appendix  A. 

If  IFLAG  =  1,  the  data  is  assumed  to  he  complex  and  already 
in  the  X  and  Y  processing  arrays.   In  this  case  there  is  no  loading  from 
T  and  no  reconversion  afterwards.   This  option  is  used  when  it  is  desired 
to  perform  a  transform  on  complex  data  and  at  a  later  time  perform  the 
inverse  (perhaps  after  some  modification  of  ouc  coefficients)  transform. 
An  inverse  FFT  can  be  performed  by  dividing  the  magnitude  of  the  complex 
coefficients  by  N  and  reversing  the  sign  of  the  imaginary  components 
before  calling  FFTB. 

The  FFTB  subroutine  calculates  the  complex  coefficients  by 
means  of  two  separate  loops.   The  first  consists  of  the  radix  k   passes 
while  the  second  consists  of  a  radix  2  pass  (if  the  number  of  points  is 
not  evenly  divisible  by  k) .      In  each  loop  note  that  the  sine  and  cosine 
values  are  determined  for  each  iteration  by  means  of  the  trigonometric 
identities  for  the  sum  of  two  angles  (the  previous  angle  plus  the  itera- 
tion increment).   This  is  much  faster  than  calling  the  sine  and/or  cosine 
routine  on  each  iteration.   A  further  speedup  is  achieved  by  using  the 
simplified  forms  of  the  loop  equations  on  the  first  iteration  when  the 
cosine  terms  are  +1  and  the  sine  terms  are  0. 

In  calculating  the  output  coefficients,  the  Cooley-Tukey 
algorithm  scrambles  the  order  of  the  coefficients.   Therefore  the  next 
step  after  the  calculation  of  the  complex  coefficients  is  to  unscramble 
them  on  the  basis  of  a  binary  sort.   The  limits  for  the  various  sorting 
loops  are  calculated  on  the  basis  of  the  number  of  output  coefficients  which 

were  calculated.   The  FFTB  subroutine  contains  13  loops  which  allows  for 

13 
output  data  fields  containing  up  to  2   coefficients.   If  less  than  this 
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number  are  used,  the  outermost  loops  will  only  be  performed  once.  Note 
that  the  fact  that  Jl,  J2,  J3,  and  J*+  (the  first  four  loop  indices  in 
the  sorting  section)  are  index  registers  is  of  no  significance  in  this 
part  of  the  loop  and  occurs  only  because  these  same  variables  were  pre- 
viously used  in  the  radix  k   calculation  of  the  complex  coefficients. 


183 


C 
C 

c 
c 

c 
c 
c 
c 
c 
c 
c 
c 

r; 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

r 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


FORTRAN  Of- 
SUPRCUT 


SE^T  15  ft8 , 
•ME  FFTE(NR, 


TATE   8/12/71 

N,  N2P0WT,  T»  IFLAG) 


THlb  SLEROLTlNE  CALCULATES  THE  CCMPiEX  FCURibR  CUEKF  ICt.v.  Tb 
FOR  'HE  I KPL  T  ARRAY,  T.    IT  USES  ARRAYS  Y  ANT  Y  AS  PROCESSING 
ARRAVf-  A  i\  L  LEAVES  THF  RESULTS  IN  THESE  ARRAv?  WHEN  DONE.   Tht 
ZFROTP  UCNPLEx  COEFF  IHENTfCORRESPCNDING  tC  r»-E  DC  CCMPCNENT)  lb 
STCR'-D  IN  X(l)  AND  Yd),  THE  FIRST  FUNDAMENTAL  FREQUENCY  COt*  - 
KICE'MT,  IN  X<2>  ANT  V(2).  ETC   TEE  PROGRAM  RETURNS  THE  UUEF  - 
FICEMTS  AS  REAL  (X)  AMC  IMAGINARY  (Y)  COMPONENTS. 

THE  K&T  E  C  C  USEE  IS  A  VARlENT  OF  THE  COOiEY-IUKEr  FAS  f 
FOLR'ER  IRANSFORM  uEICH  USES  BOTH  RADIX  FCU*  AND  RADIX  TWU 
CALCil AT lCNS • 


Cl 


COS 
RAC 
CF 
COS 
COS 
13. 
ABL 
AND 
FOL 
>  F  R  3  , 
ITE 
ITE 
SUE 
FRC 
SAN 
Jl, J?i J3.  ^4 
THE 
INC 
4  A 

cus 

INC 


C2 
C3 
F 1 1 rF  I  2 


(■Rl,1  R2 
I  P  A  S  c 
ISQLOC 


INE 
Ix  4 
THE 
UE 
UE 
F  14 
ES  L 
ALS 
F  IER 
FR4 
F  ATI 
FATI 
SETS 
CESS 
E  CC 
=  \A 
SE  V 

Exec 

NC  R 

FRC 

IfiEC 


FbNC 

Lrc 

FCi  R 

OF  T 
OF  T 
=  IN 

SEr 

0  IN 

crE 

=  FE 
ON  V 
ON  V 

OF 
EC  T 
MPi  E 
ME? 
ART  A 

Ins 

ADTX 

CE?S 
T  AL 


TICN 
P  AM 
IER 
WTCE 
mrEE 
A  G  I  N' 
TM  T 
THE 
FFIC 
AL  C 
ARIA 
ARIA 
4  CO 
0  CP 
X  VA 
FOR 
PI  ES 
TRlC 

2  L 

OF 

owes 


USED  FOR 
D  IN  THE  F 
COEFF1CENT 

THE  ARGUN 

TIMES  THfc 
ARY  COMPON 
HE  RADIX  4 

FINAL  STE 
ENTS, 
OMPONENTS 
«LE  FOR  RA 
PLE  USED  w 
MPLEX  VARl 
TAIN  IHE  i\ 
R  I  ABLtS . 
INDEX  HEGI 

ARE  USED 
TIONS  WHEN 
OOPS  iNSTfc 
CALCMLAT  IN 
SING. 


COMFLEv  M.n.  T 
I  N AL  STEP  fc 

s. 

ENT  of  CI. 
argumpnt  rF 

ENTS  UF  lNTE 

ANC  RAC  I  X  2 

P  FCR  RECONS 


IPLICATICNS  IN  THE 
H    RbCCNSTRUClluN 


CI. 

RMbDI  A  lb  VARI' 
CALCULATIUNS 
TRUCTING  THE 


CORRESpCNUING  TU  F|l,  ETC 
D  I  X  4  I  COP. 
ITH1N  RADIX 
ABLES  PACH. 
EXT  II  CAT  I  r N 


4  LUOP  10  OBTAIN 
WHICH  ARE  iHEN 
VALUES  FCR  THESE 


STEPS  3.4,5» 
TO  ALLOW  Ti-E 
ACCESSING  C 
AD  CF  GC ING 

G  AN  AoCRt^S 


AND  6  RESPECTIVELY 

COMPILER  TO  UbE 
ATA  IN  THE  RAUi  X 
THRU  THb  LABOKi- 
ANU  THEN  US1NU 


LENGTH 

N 

Mp 


NUNEER  OF  COMPLEX  COEKF  I  CENTS  (  MijS  T  PE  A  POWER  Ci-  2> 
NUNEEH  OF  DATA  POINTS  IN  T  TC  Be  AN' AL  YZED  ( MUST  NOT 
EE  CREATFR  THAN  2*N-   IF  SO,  THF  ADHlTIONAL  SAMPLEb 
wlLL  6E  IGNORED). 


NXT 

N2PC 

N4P0 

Si 

S2 

S3 

i 

X 


LTH 


4  IS  A  FACTOR  UF"  N 


OF  Cl 


'Cl  ,US1  = 


LOG  TC  THF  BASE  2  OF  N. 

N2FCw/2.  IE.  THF  NUMBER  C  F"  TIMES 

SINE  OF  SANP  ARGUMENT  AS  C 1 . 

SINE  OF  TuICF  THE  ARGUMENT  OF  Ci 

SINE  OF  ThRFP  TIMES  THE  ARGUMENT 

ARRAY  CONTAINING  INPUT  SAMPLES. 

REAL  CCMPfNENTS  OF  CUMPLEX  PROCPSSING  ARKAY  (FCR 

EFFlCENCY  SHOLLC  BE  AN  ARRAY  INTERNAL  TO  FFTb  OH 

CONNCi\  ARFA). 

IMAGINARY  COMPONENTS  OF  COMPLEX  FRCCESbING  ARRAY(FUk 

MXINUN  EFFICEMCY  SHOULD  BE  IN1FRNA|   TO  FFTB  CR  IN 

CONNCN  ARFA). 

COSINE  ANC  SINE.  RESPECTIVELY,  OF  Tt-b  ANbLE  INCREMENT 


MA> 
IN 


18U 


00003 
00005 
0  0  011 
00U15 
00016 
00017 
00020 
000?4 
0  0  0-50 
0  0  035 
0  0  0  3  7 
00041 
00046 
0  0  0  5  3 


csl 
c 
n 
c 
c 
c 


M.RTRAN  Pf  SfcPT  l$6d,   FATF   8/12/71 

IN  THE  I.OfF  USED  IN  THE  RECONST  ri  C  T  I  CN  OF  THfc  F  U  U  R  i  | 
COEFFICHNTC.   THEY  ARE  USED  TO  rAL'ii  LATE  A  Nbtv  SINt 
ANC  CCSINF  FOR  EACH  ITERATION  WTTHQi  [  HAVING  TC  CAli 
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HfeGP'MNO     AT     STATEMENT    90     AND    ENDING    CN    ^TATP^EnT    6U0.        11 
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ORTRAN  OF  SEPT  1568,   r*TE   8/12/71 
NTHPOW  =  2*  *  N2FC^ 
N4POW   =  N2PO^/2 

IF  (MPOM     50.  P3.  50 

THE  «0  LCCP  CONSISTS  OF  THE  RADIX  4  PASSES,  if"  ANY. 
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ORTRAN  OF  SEPT  1968,   TATE   8/12//1 
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X(  I  )  = 

X(  J)  = 

F  11  = 

Y  (  I  )  r 

Y(  J)  = 
I  = 


Jl 

J2 

J3 

J4 

J5 

J6 

J7 

J8 

J9  ; 

J10; 

Jll: 

Jl2: 

J   : 

i) 

X  (  i  ) 
X(  J) 
FR1 

Y(  I  ) 
Y(J) 
FI1 


1' 
Jl» 
J2» 

J3' 

J4  > 


Ll 

L2» 

L3. 

L4» 

L5. 

L6» 

L7. 

Lfi, 


J7. 

J6»  L9 
J9#L10  - 
" 'Lll  ,Ll C 
wll »L12.L1 l 

-it   I  4  r 


I  1 

L2 
I  3 
14 
I.  5 
I  6 
I  7 

ie 

9 


.10 

vll »L12#L11 
wl2»L13 *Ll 2 

61G,  610,  601 


1+1 
CONTINUE 

NOW  HE  HAvE  THE  CCFFFICENTS  IN  THEIR  PROPER  CfiDbR.   HOWfcvbR, 
IF  wE  WERE  PF-CCESSING  PURE  REAL  DATA  TO  REGH  WITH,  Wk  SAVEU 
T  I  ME  AMD  SPACE  BY  i  C  A  n  I N'  G  ALTERNATE  SAMPlES  INTO  THE  HEAL  AND 
IMAGINARY  PARTS  OF  THE  COMPLEX  PROCESSING  ARRAY.   IF  THIS  IS 
ACTUALLY  THE  CASE,  THFN  IN  ORDER  TO  GET  T»-E  CCEFFICENTS  FOR 
THE  PEAL  DATA,  AS  TPPOSED  TO  THE 

ARTIFICIALLY  CONSTPLCTED  COMPLEX  LATA  WITH  WHICH  WE  SURibD, 
IT  I^  NECESSARY  TO  FRRFORM  ONE  LAST  TR  ANsFORl*  A  T  I  ON  ON  THE  CU- 
bFF  r'ENTi  . 


IF  (I  FLAG) 


121),  110.  120 


ARG  =  3.1415927/ 
DCl  =   COSF(ARC) 
DS1  =  -SINK(ARG) 
Cl   =1.0 
Si   =0.0 
N2  =  N/2 
N2P1  =  N2  +  1 


FLOATF(\ ) 
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0  n  5  4  3 
00550 
00553 
00555 
00557 
0U5M 
0  0  565 
0057? 
005/4 
0057f 

0  0  6  0  3 
0  0  6  1.  0 
0  0  614 
0061  7 
006?? 
006?5 

on63n 

0  06  Sl 
0  0  6  51 


rSL  I"  CRT  KAN  Of 

DO  115  J-'eL 
Jl  s  N  *  2 
F  R 1  =  -  (  J  ) 
Fll 


115 


SEPT  1?6H, 

N2M 


TATt   8/12//1 


Tea    = 

ci     = 
S3       = 

Fk^     = 

H'/  = 
FKv  = 
Fl,  = 
Y  (  J  ) 
x  (  j  ) 
II-  U 
v  (  j  i  ) 

x  i .  i  n  ) 

pom  i  fv 


(j)    - 


'3 

( 1 *LC1 

!  (  I  *  I    «  1 

V  (  J  )      - 

■  (  J  )      « 

.  3  *F  Rg 


X  (  „  1 ) 

v  (.1) 


-    Sl*D?l 

4    si*Dri 

X    (wl) 

y(wt) 
-   Si*FI? 

.  D  *  (  F  [  1  -  m  3  ) 

.  &  «  {  F  fi  3  ♦  F 

M2PJ  ) 


,1  .  5  *  ( 


13) 

113.     115 
F  ll  +  rt<?  ) 
h'Kt-fr  I  1  ) 


113 


IV    if- 


A  !\i 
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8.6   IFILT(BUF,  NUM,  OBUF,  BR,  EART,  BF,  EAFT,  Yl) 

This  subroutine  simulates  a  digital  filter  with  independently 
specifiable  rise  and  fall  times.   The  data  from  the  input  buffer,  BUF,  is 
filtered  and  loaded  into  the  output  buffer,  OBUF  (which  may  be  the  same 
physical  buffer  if  desired).   There  are  two  entry  points,  IFILT,  which  sets 
up  the  filter  constants  and  EFVLP,  which  does  the  actual  filtering.   When 
IFILT  is  called,  BUF(O)  will  contain  the  desired  rise  time  in  msec,  and 
OBUF(O)  will  contain  the  desired  fall  time.   IFILT  then  calculates  the 
values  of  BR,  EART,  BF  and  EAFT  which  are  the  coefficients  for  the  differ- 
ence equations  to  be  used  in  the  case  of  rising  and  falling  signals,  respec- 
tively.  When  ENVLP  is  called,  RUM  samples  from  BUF  are  filtered  and  loaded 
into  OBUF. 

The  difference  equations  for  the  filter  were  chosen  to  be  of 
the  following  form: 


y(nT)  =  [1  -  e  aT]  x(nT)  +  e  aTy(nT  -  T) 


with  the  time  constant,  a,  being  independently  specified  for  a  rising  and 
a  falling  signal.   The  subroutine  compares  the  input  value  with  the  last 
previous  output  value  and  then  chooses  the  "rising  signal"  equation  or 
the  "falling  signal"  equation  on  the  basis  of  this  comparison. 

Figure  8.6.1  shows  the  step  response  of  the  filter  for  various 
rise  and  fall  time  constants. 
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rise  time  =  5  ms 


rise  time  =  10  ms 


fall  time  =  1  ms 


fall  time  =  25  ms 


full  time  scale  =  50  ms 


Figure  8.6.1  Step  Response  of  ENVLP 
for  Various  Rise  and  Fall  Time  Constants 
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CSL  FORTRAN  OF  SiPT  1*68,   DATE   4/28/71 

SUBROUTINl  1FILTCBUF,NUM«0IUF,BR»EART,8F,EaFT,y1) 
C 

C  THIS  SUEROUTIM  IS  A  DIGITAL  FILTER  WHICH  IS  USEU  10 

C        SMOOTH  OUT  T^E  DATA  IN  THE  INPUT  BUFFER,  BUF.   IT  CAN  Bb 
C        UTILIZED  AS  AN  ENVELOPE  TRACER  AND  CAN  BF  ADJUSTED  TO  HAVE 
C        DIFFERENT  RpSE  AND  FALL  TIMES. 

C  IN  ORDBF  TC  CALCULATE  THE  FILTER  VAl  UES  TO  BE  USED* 

C        IFILT  MUST  BE  CALLED  WITH  BUF  ■  RISE  TIME  AND  OBUF  *  FALL 
C        TIME  IN  MLLESEC0NC1  OF  THE  DESIRED  FlLTFR.   THEN  DATA  MAY 
C        BE  PROCESSED  BY  CALLING  BNVLP  WITH  BUF  ■  INP(.T  BUFFER  AND 
C       OBUF  «  OLTPLT  BUFFER, 

C  NOTE.  THIS  RCLTINE  WILL  STILL  WORK  PROPERLY  WITH 

C        THE  BUF  AND  <CBUF  PARAMETERS  BOTH  INDICATING  THE  SAME  BUFFER. 
C 

C        AR    *  RISE  TJME  CONSTANT 
C        AF    ■  FALL  TIME  CONSTANT 

C        BF    •  INPUT  SAMPLE  COEFFICENT  FOR  FALLING  SIGNAL 
C        BR    *  INPUT  SAMPLE  COEFFICENT  FOR  RISING  SIGNAL 
C        BUF   «  INPUT  DATA  BUFFER 

C        DTIME«  CCMMON  VARUILE.   TIME  PERIOD  BETWEEN  INPUT  UATA  SAMPLES 
C        NUH   «  NUMBER  OF  POINTS  IN  BUF 
C        OBUF  ■  OLTPLT  DATA  BUFFER 
C        Yl    b  PREVIOUS  SAMPLE  VALUE. 
C 

TITLE* 

DIMENSION  BLF(l),  CBUF<1) 
10     AR    *    1000. /BUF 

AF    «  1000, /OBUF 

EART  «  1.0/EXPF(AR*CTIME) 

EAFT  •  1.0/E>PF(AF*CTIME) 

BR    «  1  -  EART 

BF    si-  EAFT 
C 

RETURN 


40     ENTRY  ENVLP 


DO  300*  I"0,  (NUM-i  ) 

IF  <BUF(I)  -  YD     50#  100.  100 
C 

C  FALLING  SIGNAL 

C 

50     OBUF(I)  '    BF*BUF(I)  ♦  EAFT*Yl 

GO  TO  200 

C  RISING  SIGNAL 

C 

00045    100  OBUF(I)  ■  BR«BUF(I>  *  EART*Yi 

C 

00051    200  Yl  a  OSUFU  ) 

00053  300  CONTINUE 

00054  RETURN 

00055  END 
•FORTRAN 


192 

8.7  TENVL 

This  is  a  test  program  for  IJTLT.   It  allows  the  operator 
to  select  various  values  for  the  rise  and  fall  times  of  the  filter  and 
then  produces  positive  and  negative  steps  to  test  out  the  program.   The 
directions  for  the  use  of  the  program  are  given  in  the  comment  at  the 
beginning  of  the  program  listing.   Examples  of  TENVL's  output  are  given 
in  figure  8.6.1  in  the  previous  section. 
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CSL 

C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


FORTRAN  OF  SfPT  l'«68, 
PROGRAM  TINVL 


DATE  #/ae/7i 


THIS  ROLTIM  TS  USID  TO  TEST  THE  ENvLP  DIGITAL  FILTERING 
SUBROUTINE.   IT  §ETS  TH|  RISE  AND  FALL  TIMES  FOR  THI  FILTER 
ACCORDING  TC  NUMBERS  TYPED  IN  ON  THE  TYPEWRITER  AN|  THfcN  TfcSTS 
IT  OUT  WITH  A  *  ANC  -  STEP  INPUT  CF  MAGNITUDE  1000. 

IN  ORDER  TO  LCAD  THIS  PROGRAM  TYPE  CUT, 

EXlTCALL,  PROGRAM  TAPE,  TENVL 

THE  SYSTEM  WILL  TYFE  TARE  5,  IF  THE  COMPLETE  LIBRARY  IS  NOT  ON 
THE  PROGRAM  TAPE.  IN  THIS  CASE  TYPE  A  SPACE  PROVIDED  THE  RtST 
OF  THE  LIBRARY  IS  INDEED  ON  TAPE  UNIT  5. 

ONCE  THE  PROGRAM  IS  LOADED,  TYPE  TENVL  TO  START  THW  PROGRAM 
THE  PROGRAM  'WILL  TYPE  A  *  AFTER  WHICH  THE  OPERATOR  MU$T  TYPE, 

TEf^VL«RlSI  TIME(IN  MSEC,), FALL  TIMEUN  MSIC) 

THE  PROGRAM  'WILL  THEN  CONTINUE,  PRINT  OUT  THE  RESULTS,  AND  DIS- 
PLAY TM6M  ON  THE  CRT. 


BF 

BR 

EAFT 

EART 

Fl 

FTMP1 

PTMP2 

Nl 

N2 

NVAL 

OBlF 

TBUF 

VAR 

Y 


FALL 
RISE 

fall 
rise 

ALPH 
TEMP 
TEMP 
FJRS 
MSEC 
SEOO 
HSEC 
STEF 
OLTP 
INPL 
INPL 
LAST 


TIME 

TIME 

TIME 

TIME 

ABETIC 

CRARY 

CRARY 

T  NLME 

.  FCR 

ND  NUM 

,  FCR 

VALUE 

LT  DAT 

T  DATA 

T  CCMM 

PREVI 


CCEFFICENT  CALCULATED  RY  IFILT  ANi 
CCEFFICENT  CALCLLATED  BY  IFILT  ANB 
CCEFFICENT  CALCLLATED  RY  IFILT  ANi 
CCEFFICENT  CALCLLATED  BY  IFILT  ANB 
PARAMETER  READ  IN  BY  INPTCM.  NOT 
VARIABLE  USED  TC  CONVERT  Nl  TO  FLT 
VARIABLE  USED  TC  CONVERT  N?  TO  FLT 
RIC  PARAMETER  READ  IN  BY  INPTCM. 
FILTER  (INTEGER). 

ERIC  PARAMETER  READ  IN  BY  INPTCM. 
FILTER  (INTEGER). 


USkD  BY  ENVLP 

UStD  BY  ENVLP 

USbD  BY  ENVLP 

USleD  BY  ENVLP 

USWD  BY  TENVL 

.  PT. 

.  PL 

RISfc  TIME  IN 

FALL  TIME  IN 


A  BUFFER. 

BUFFER  . 
AND  READ  IN  BY  INPTCM  (5  CHARACTE«  NAME). 
CLS  OUTPUT  VALUE. 


TITLE* 

DIMENSION  TBLF<1000>#  OBUF(IOOO) 

EQUIVALENCE  <TBLF<1>.  A(«o03))'  (CBUF(D.  A(7004)> 

INITIALIZE  VARIABLES  AND  CONSTANTS. 

CALL  INITI 
X  ■  0  -0 

READ  IN  AND  CMECK  THE  COMMANL  FROM  THE  TYPEWRITTERi 

CALL  INPTCM(VAR,  Nl .  N2»  Fl»  19) 
IF  (VAR  -  5HTENVL)     2,    5»  2 

INITIALIZE  THE  FILTER  ACCORDING  TO  THE  FREQUtNBY  RANGE 
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00015 
00016 
00020 
00032 
00033 
00034 
00037 
00044 
00047 


00060 
00072 

00103 


00130 


10 
15 


C 

c 

c 

00104 

00115 

00116 

C 
C 
C 
C 

C 
C 
C 

c 

00132 
00133 
00134 
00137 
00141 
00141 
00141 

00142 
-FORTRAN 


40 


50 


100 
200 


GIVEN  BY  THE  INPUT  PARAMETERS. 

FTMP1  ■  Nl 

FTKP2  ■  N2 

CALL  IFILT(FTPPi,ioOO.FTMP2,BR»EART,BF,EaFT,y> 

NVAl    r  1 00  C 

Y       s     CO 

TBUF<0)«     CO 

DO  15*  l3l»  1000 

TBUF(  I  )  *  NVAL 

CALL  ENVLFCTELF,  lflflO.  OBUF , BR . E AR T , BF , E AF T , Y ) 

PRINT  CLT  AND  DISPLAY  INPUT  TO  FILTER. 

PRINT  lOOi  (TBUF (  I  )  ,  I«o.  1000) 

CALL    DISSY(X.TBLF, iooo»  ISCOPl.3000'100C. 1024. »0) 

CALL  WHATNOT 

display  an:  print  out  output  FRor  filter. 

CALL  DISSY(X»CBLF.i000iISCOPl»3000»1000..l024.»0) 

CALL  WHATNOW 

PRINT  100  #  (CBUF(I),  I*0»  1000) 

IF  NVAL  IS  NON-ZERO.  THEN  REPEAT  PROCESS  FOR  NSGAUVE  bTEP 
INPUT.   CTHERHISE*  IF  NVAL  IS  0.  RETURN. 


IF  (NVAL) 


200>  200*  90 


SET  LP  THE  PARAMETERS  FOR  A  NEGATIVE  STEP  G01N*  FRilM  1U00 
TO  0-   THEN  REPEAT  THE  TEST. 


*     C 
■  100  0  .0 


NVAL 
Y 

TBLF<0>*  100  0  ,0 
GO  TO  10 

FORMAT  (2X#  10<F9,?,tX>) 
CONTINUE 
RETURN 
END 
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8.8  INILER,  LERNFIL  (LAP,  IBP,  BUF,  PBUF,  Yl,  Y2,  CONST,  EAT,  XIN) 

This  program  simulates  tlie  action  of  a  Uth  order  Lerner-type  band- 
pass filter.   The  INILER  entry  point  sets  up  the  various  constants  needed 
while  the  LERNFIL  entry  point  does  the  actual  processing  of  data.   In  the 
setup  phase,  LAP  and  IBP  specify  the  frequency  bounds  of  the  filter.   In 
the  processing  phase  IBP  specifies  the  number  of  points  in  BUF  which  are 
to  be  processed  while  LAP  is  not  used.   PBUF  is  the  output  buffer,  while 
Yl,  Y2,  CONST,  EAT,  and  XLN  are  variables  and  constants  used  to  store  the 
information  which  characterizes  a  particular  filter. 

As  originally  described  by  Learner [ I96U ] ,  the  continuous  Lerner 
filter  is  defined  by  the  system  function  : 


m  B.  x  (s+a) 
Ks)  =   E  -i 


i=l  (s+a)2  +  b.2 


where : 

B1   =  I         B.  =  (-1)1+1    i  =  2,  ...,  m-1 

Bm  "    2 

The  primary  advantage  of  this  type  of  filter  is  its  flat  pass 
band  transmission  combined  with  a  linear  phase  change  over  most  of  the 
pass  band.   In  addition  (and  what  is  more  important  in  the  present  case) 
it  is  easily  implemented  on  a  computer  since  each  term  in  the  system 
function  is  quite  similar.   In  particular,  following  Rader  and  Gold[l967] 


"''The  notation  used  follows  Rader  and  Gold[l96T].   As  is  to  be  expected, 
it  does  not  agree  with  Learner's  original  notation. 
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we  can  develop  the  following  Z  Transform  equations  for  the  same  Lerner 
filter: 


m        B.  (1  -  e  at(cos  b.T)Z-1) 
Y(Z)  =  Z        


i=l   1  -  2e"aT(cos  biT)Z_1  +  e"2aTZ~2 


An  m-order  bandpass  digital  Lerner  filter  can  then  be  realized  using  the 
following  difference  equations: 


— aT 
yi(nT)  =  e    (cos  b.T)[2y.(nT  -  T)  -  x(nT  -  T)] 


-2aT 
-  e     y. (nT  -  2T)  +  x(nT) 


i  =  1,  2,  . . .  ,  m 


and 


m 
y(nT)  =   E    B.y. 

i=l    X  1 


Note  that  with  the  equations  in  this  form,  we  can  increase  the  order  of 
the  filter  (and  thus  improve  its  quality)  by  simply  increasing  the 
number  of  iterations  per  sample  and  the  storage  used.   The  algorithm 
remains  unchanged. 

For  this  system  a  four -pole  filter  was  chosen.   To  get  the 
Learner  filter  equations  into  a  form  more  compatible  with  the  FORTRAN 
programming  language,  we  can  do  the  following: 


Yl(i)  =  y, (nT) 


i 


Y2(i)  =  y. (nT  -  T) 


Y3(i)  =  y.UT  -  2T) 
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and 


CONST(i)  =  e'aT  cos(b.T) 

1 

BUF(N)  =  x(nT) 
XIN  =  x(nT  -  T) 
EAT  =  e"2aT 

where  the  subscripts  in  the  various  arrays  signify  the  variables  for  the 
equations  relating  to  the  ith  pole. 

As  a  result  the  equations  for  the  outputs  of  the  four  pole  filter 
for  any  input  sample  n  become: 

Yl(l)  =  CONST(I)  *  (2.*  Y2(I)  -  XIN2)  -  EAT*Y3(l)  +  BUF(N) 

PBUF(N)  =  .5  *  Yl(l)  -  Yl(2)  +  Yl(3)  -  .5  *  Yl(U) 

Of  course,  in  the  process  of  time  and  space  optimization  a  few  changes 
were  made.   In  particular  Y3  does  not  need  to  be  stored  in  an  array,  since 
its  value  is  not  saved  from  one  iteration  to  the  next.   Also  the  equations 
were  rearranged  slightly  to  speed  up  the  arithmetic. 

The  program  has  been  written  in  such  a  manner  that  given  the 
upper  and  lower  frequency  limits  of  the  desired  bandpass  filter,  it  will 
calculate  the  proper  pole  positions,  (i.e.  evaluate  a,  b  ,  b  ,  b  ,  and 
b>  ).   In  order  to  do  this  certain  assumptions  were  made  about  the  desir- 
able characteristics  of  the  filter.   In  particular  a  decision  had  to  be 
made  on  how  to  pick  the  ratio  of  a/Ab  where  a  is  the  distance  of  the  filter 
poles  from  the  jw  axis  and  2Ab  is  the  distance  between  the  interior  poles 
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of  the  Lerner  filter.   After  studying  Lerner's  design  criteria  and  runnir 
a  few  test  programs,  it  was  decided  to  make  the  ratio  equal  to  one.   Als< 
as  a  result  of  the  test  runs,  it  was  decided  to  arbitrarily  increase  who- 
ever bandwidth  is  specified  by  the  calling  sequence  by  a  factor  of  1.1. 
This  allows  the  sharpest  part  of  the  magnitude  curve  to  occur  right  on 
the  cutoff  frequencies  specified  instead  of  further  inside  the  pass  band 
The  theoretical  effect  of  this  decision  is  simply  to  arbitrarily  redefin 
the  originally  arbitrary  definition  of  "bandwidth". 
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FORTRAN  OF  SEPT  1S68,   CATE   6/28,71 

SUBROUTINE  I N HER ( I AP . IBP . BUF . PBUF , Yl , Y2 . CONST , E AT . X  I  k  ) 


THIS 
A  BUFFER 
TION  OF  A 
IN  THE  01 

THE 
WITH  UP 
AFTER  CAL 
GIVEN  AS 
AND  RETUR 
LERNFIL  I 
PARAMETER 
DESIRED  F 

A  = 
B        * 

BUF  s 
8W  * 
CONST    = 

DTIME  = 
EAT      = 

FUDGE    * 

Il»l2»   3 
13.14 


IAP 
IBP 

ISAMF 
P 

PBUF 
XIN 

YliY2 


SUBROUTINE  IS  A  DIGITAL  FILTERING  PROGRAM,   IT  ACCtPTS 
CF  FLOATING  POINT  NUMBERS*  BUF,  AND  SIMULATES  1  HE  AC- 

4TH.  ORDER  BAND-PASS  LERNER  FIlTER 
TPlT  BUFFER.  PBUF, 

CONSTANTS  FOR  THE  FILTER  ARE  SET  UP 
■  L'CW  FRECLENCY  EDGE  AND  IBP  »  wIGH 


TO  PHOBUCE  THE  DATA 


BY  CALLING  INILER 
FREQUENCY  bDGE. 
CUL*TING  THE  CONSTANTS  AND  STORING  THEM  IN  THE  ARRAYS 
PARAMETERS,  IMLER  PRINTS  OUT  THE  CALCULATED  CONSTANTS 
NS,   WHEN  AN  INPUT  BUFFER  NEEDS  TO  pE  FILTERED* 
S  CALLED  WITH  IBP  s  LENGTH  OF  THE  BlFFER  AND  GIVING  AS 
S.  THAT  SET  OF  CONSTANT  ARRAYS  CORRESPOND  I NG  TU  THt 
ILTER. 


Y3 


TITLE* 
DIMENSION 


THE  IMAGINARY  AXIS* 
DIFFERENCE  gETWEEN  THE  CbNIER 


IT  CONTAINS 


UAl  A 
IT 


CONTAINS 


BAND.  ITS 


DISTANCE  FROM  POLES  TO 

ONE  HALF  THE  FREQUENCY 

PCLES,  =  BW/4. 

INFUT  DATA  BUFFER, 

BANDWIDTH  IN  RADIANS  AFTER  FUDGE  IS  MADE. 

CONSTANT  ARRAY  USED  IN  FILTER  cALC|_LATIONS 

4  ENTRIES  BEGINNING  WITH  ENTRY  0- 

COMMON  VARIABLE.   SAMPLING  PERIOD  cF  INPUT 

CONSTANT  ARRAY  USED  IN  FILTER  CALCiLATlONS 

2  -ENTRIES  8EGINNING  WITH  ENTRY  0« 

FUDGE  FACTOR  TO  STEEPEN  SLOFE  AT  EDGE  OF  PASS 

EFFECT  IS  TO  WIDEN  THE  BANDWIDTH  SLIGHTLY, 

NAMES  FOR  INDEX  REGISTERS  3  THRCUGh  6.   THESE  REGISTERS 

ARE  LCADEC  WITH  THE  INTEGER  CONSTANTS  0  TMRUlGH  3  SO  ThAT 

ELEMENTS  IN  THE  CONSTANT  ARRAYS  CAN  BE  ACGESSfcD  BY  INDEX- 

INC  INSTEAD  CF  BY  SUBSCRIPT  CAiCULATlON  WMICH  IS  MUCH 

LESS  EFFlCENT  IN  CSL  FORTRAN. 

INFUT  PARAM.  =  LOW  FREQ,  EDGE  FOR  I N  F I L,  CALLSUN  UPS.). 

INFLT  PARAM.  s  HIGH  FREU  .  EDGE  FOR  INf-IL  CALLSUN  CPS.). 

=  NUMBtR  OF  IigPUT  SAMPLES  F  OR  LERNFIL  UaLLS 
SAMPLING  FRECUENCY.   COMMON  VArIABiE  PRESET  BtFQRE  CALL. 
PCLE  POSITIONS  IN  RADIANS,   THIS  AfiRAY  CONTAINS  4 
ENTRIES  PEGINNING  WITH  ENTRY  0 
OLTPUT  DATA  BUFFER. 

DELAYED  INPUT  SAMPLE  (FROM  BUF )  PRcCESStD  JUS  I  PRION 
TC  SAMPLE  CURRENTLY  BEING  PROCESSED. 

INTERMEDIATE  PARAMETERS  USED  BY  LERNFIL.   NUMBER  KEP- 
RESENTS  NUMBER  OF  TIME  DELAYS.   EACH  PARAMETER  REPRE- 
SENTS A  FCtJR  ENTRY  ARRAY  BEGINNING  AT  ENT8Y  Qf 
INTERMEDIATE  VARIABLE  USED  BY  lERNFlL.   REPRESENTS  THE 
OLTPUT  OF  THE  ITH  COMPONENT  OF  THE  LERNER  FILLER  3  TIME 
DELAYS  AGC.   THIS  VARlAbLE  IS  uSED  ONLY  ONCE  AND  NEED 
NCT  BE  SAVED.   THUS  IT  LUES  NOT  NEED  TO  Bi  A  PARAMETER 
OR  AN  AHRAY. 


Yl<3>.  *5<3),  C0NST(3),  P(3). 
BLF  (1),  F6UFC1  ) 
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000(14 
00007 
00012 
00013 
00016 
00017 
00021 
00026 
00027 
0  0032 
00033 
00035 
0  U  037 
00043 
00046 
00052 
00053 
00057 
00060 
00064 
000^5 
00075 
00076 

00077 


00103 
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FORTRAN  QF"  SEFT  1?68,   TATE   6/28//1 
INTEX  11(3).  12(4).  !3<5>»  U<6) 


ILLAR 


SET  UP  PCL.ES  CF"  FILTER,  IE.  CALCULATE  B  AND  CTHER  CCNSTANFS. 


LOAC  REGISTERS  3  THROUGH  6  WITH  THE  CONSTANTS  U  THROUGH 

3.   THESE  WILL  EE  LSED  TO  ACCESS  TH£  CONSTANT  ARRAYS. 

2  OE 

4  lE 

b  ct 

e  2i 


•FORTRAN 
1  A 

B 
F 
8 
B 
A 
P 
P 
P 
P 
A 
T 
E 
E 
P 
P 
C 
5  C 

Ll 
P 
50  F 

bb  C 

R 


EN  I 
EM 
EM 
EM 

PR  = 
PP.  = 
UDGE 
W  r  ( 
=  8W 
s  B 
(ll) 
(  I2> 
(  I3> 
(  U) 
T  r  A 
AT  = 
T   = 
AT  = 
O  5' 
T  =  P 
ONST 
ONTIN 
O  55. 
RINT 
ORMAT 
ONTIN 
ETURN 


FLCATF (  IAF)*6. 2831853 

FLCATF  (  IBF  )•<■  .?83l«53 

=  1.1 

RPR  -  ARR)#F I  CHE 

/4  .  0 


*D 
AT 

1 . 
1. 
1  = 
( I 
( I 

UE 
I 

50 
( 

UE 


APR 

Mil 

E(IZ 

F(  12 
T  IME 
♦  A 
/EXF 
/EXP 
0,  2 
)*UT 
)  = 


-  (FUDTE  ■ 
)  ♦  R 

)    ♦   R   4    P 

)  *  R 

T 

F  (AT) 

F(T4T) 

IfE 
CCSF(PT) 


1  .  )*BW/2 


■ET 


=  0'  2 

>  I,  F(  I  )  ,     I  .  CONSTt  I  ) 

2F  PII1.4H)  =  F2Q .8,4X,6HCUNST ( i! ,4H) 


FifQ.8> 


1U0      ENTRY  LEF-NFIL 
-ILLAR 


3. 

EM 
ENI 
EM 
EM 
ORTRAN 

DO 


LOAC  REGISTERS  3  THROUGH  6  WITH  THb  CONSTANTS  y  I  hrtOUGH 

THESE  WILL  EE  ISFD  Tf)  ACCESS  THE  CONSTANT  ARWAYS. 

2  OE 

A  !E 

5  2E 

e  3E 


1<59 


(  IEP 


1) 


CALCULATE  NEU  VALUFS  FOR  Yi#  *2>     *^D  Y3. 
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00112 
00113 
00114 


00126 


CSL    FORTRAN    OF    SiPT    1«68,       CaTE      6/28/71 
•-IILAR 

EM  1       06 

--FORTRAN 
110  Y3  ■    V2(D 

Y2(I)    ■   nm 

YK!)    »    CCNST(I)#(V2(I)    *    Y2(I) 
--ILLAR 
XX120  ISK  1      3E 

SLJ     0   X>110 
--FORTRAN 
C 
C        CALCULATE  OLTPUT 

PBUF(J)  »  .5*Y1(!1)  -  YKI2)  ♦  Yl(l3) 


X  IN )  -  EAT*Y3  *  BUFCoi 


00133 
00135 
00136 
00137 
-FORTRAN 
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.5*Yi  (  U) 

CALCULATE  DELAYED  VALUE  OF  THE  INPUT  FOR  THE  NEXT  IJEHAUQN. 

XIN  x  BUF(J) 
CONTINUE 
RETURN 
END 
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8.9   LTEST 

This  program  tests  the  Lerner  filter  subroutine  by  generating 
an  input  of  cosine  functions  at  specific  frequencies  (in  100  cps. steps) 
and  then  plotting  the  output  of  the  filter  as  a  function  of  frequency. 
The  operator  can  set  the  band  limits  for  the  frequency  by  typing  in  their 
values.   The  exact  operating  procedure  is  described  in  the  comment  at  the 
beginning  of  the  program  printout. 

The  main  purpose  of  this  routine  is  to  allow  the  operator  to 
find  out  the  frequency  characteristics  of  a  particular  filter  before  he  us; 
it  in  his  system.   It  was  also  helpful  during  the  initial  programming  of 
the  Lerner  filter  when  the  various  design  parameters  were  being  decided. 
Figure  8.9.1  shows  the  effect  of  changes  in  the  various  filter  design 
parameters  for  a  2000-3000  cps.  filter. 


203 


bandwidth  factor  =  1.0 
A  =  B 


"bandwidth   factor  =   1.1 
A  =    .75(B) 


bandwidth  factor  =   1.1 
A  =  B 


bandwidth   factor  =1.1 
A  =  1.5(B) 


Figure   8.9.1     Effect   of  Variations   in  Filter 
Parameters   for  a  2000-3000   cps.    Filter 
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FORTRAN  OF  SEPT  1*68,   TATE   9/9/71 
PROGRAM  LTfcST 

THIS  PRCGRAM  TESTS  LERMFll  BY  GENER A T I NG  COS  1  NE 
FUNCTIONS  AT  SFFCIFIC  FREQUENCIES  (IN  inO  CpS  STtPS )  ANU  T MbN 
bik.wTnG  4finC  SLCCF«SIVE  SAMPLES  (1/4  SEC.  AT  20  *C)  IhROUGh 
RLNNING^^OOC  Sj:«^;jJ5H5D1SpLAY8  THE  iNFUl  AND  OUTPUT  Or   I  Hfc 

FILTER  AS  A  FUNCTJCM  CF  FREQUENCY  . 

IN  CF.DEF  TC  LTAD  THIS  PROGRAM.  TYPF  CUT, 

EX  1TCALL.FROGRAM  TAPE.LltST 

tuc  cycTtK  UILL  TYFE  TAPE  5,  I  F  Thb  CCMPlETE  LIBRARY  IS  NOT  UN 
]l\    KJJ'Im  lipi!   !n  tEiS  CASE  TYPE  A  SPACE,  PROVIDED  THb  HbSl 
OF  T"E  LIERAFY  IS  INOEED  ON  TAPE  I  N  I  T  5.  iiooraAh 

ONCE  TrE  PROGFA*  IS  LOADED.  TYPE  LlpST  TC  START  I  Kb  PRU.R Ah . 
THE  PROGRAM  MLL  TvFF  A  *  AFTER  »ICH  THE  OPERATOH  MUST  TYPE, 

LTESTsLGuER  FILTER  EDGEdN  LPS.).UFPER  ULTfcR  EUGtUN  CP?  ) 

THE  PROGRAM  MLL  Tl-EN  CONTINUE,  PRINT  OUT  THF  RESULTS.  AND  DIS- 
PLAY THE''  ON  THE  CFT. 

CONST.  =  ARhMS  USEE  BY  DIGITAL  FILTER  DljRlNC  PROLbbSUG. 
Dj|jV2  =  ARMY  CONTAINING  AVERAGE  MAGNITUDE  CF  INPUT  AT  tACh 

=  ARMVEC0MA!NING  AVERAGE  MAGNIT„CE  CF  OUTPUT  AT  bAUH 

FRFClENCY    AT  THE  END  OF  THE  PrCGRaM,  THESE  VALUEb 
ARE  CHANGE  TC  THE  GAIN  AT  EACH  FRECUENCY  BY  CIVlDING 
6Y  THE  CORRESPONDING  INPUT  AVERAGE.  „....-. 

=  VARIABLES  l^EC  RY  THb  DIGITAL  FILTER  CURING  HhOCbS 

=  INITIAL  FREQUENCY  EDGE  Or  FILTER  TO  BE  TbSTEb  (IN 
rpc   \  -  TvPFD  \K     BY  OPERATOR. 

.  Villi    FreJlfScJ  EDGE  OF  FILTER  TC  BF  TtSlEC  UN  CPkH 
TYFEC  IM  FY  OPERATOR.  ___ 

=  CU^Y  VARIARLE  FOR  INPTC*.  NCT  l.SED  BY  LlEST. 

.  CHARACTFR  V^RIAPLE  CONTAINING  CHKHAK   T         mIGn"- 

=  TbhRCRARY  VARIABLE  USED  IN  CALCULATING  AVERAGE  MAGNJ 
TUCE  CF  Th  E  INPUT  SIGNAL, 


0  0  010 


00013 


DIS2 


EAT, 
XIN 
II 

12 

Fl 

VAR 

XSLM 


DIMENSION  DISK100).  DIS2<100>.  YlU>.  V?  (3 ) ,  CON  ST  <3> 
EQUIVALENCE  (CISKD.  M1500S)).  JDIS2C1).  A(15l0-5» 

OyTAIN  INPLT  CCMMAND  AND  PARAMETERS. 

CALL  1NPTCM(VAR,  II,  12,  Fl.  19) 
IF  (VAR  -  ^RLTEST)      2.  4.  ? 

INITIALIZE  VAFIABLES.  CONSTANTS  AND  FILTER. 
CALL  I  N  1  T  1 
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CSL  FORTRAN  OF  SEPT  1*68,   BIT'i   §/•/*! 

CALt  INlLER<Il,!*,MNT.riNT,Yl,Y2,C0NST,EAT,XlN) 
X  «  0.0 

DO  5'  I"0»  100 
DISKI  >  «  0. 
5     DI  S2( I )  s  0, 


15 


19 
20 


25 


eo 


100 


TEST  FREQUENCIES  WILL  INCLUDE  ALL  MULTIFLES  UF  1U0  CPS. 
WITHIN  THE  FILTER  FAND  AS  WELL  AS  ♦  OR  -  1500  CPS  ON  bITHfcR  MUE 
OF  IT.   HCWEVER,  IF  THIS  CAUStS  NfcGATIVt  FREQUENCIES,  THE  TtbT 
WILL  BEGIN  AT  ZERO  CPS, 

ISTRT  =  0 

IF  ( U  -  1500  >     5.9.7 

ISTRT  s  (11/100)  -  15 

ISTOP  *  (12/100)  ♦  15 

DO  80,  I'ISTPT,  ISTCP 

ARG  =  6.283l653*FLCATF( I )*100./20000. 

XSLM  =  0. 

PRINT  15.  I 

FORMAT  (22H  ENTER  INNER  LOOP  1  =  13) 

GENERATE  ThE  INPUT  DATA  bY  CALCULATfNG  THE  COSINE  FUNCItON 
FOR  THE  ^  I RS  T  200  FCINTS.   THEN  SET  THE  REMAINING  POINTS  TO  1HIS 
SA>"E  REPEATING  FATTERN.  THIS  METHCD  WILL  WORK  AS  LONG  AS  THfc 
TEST  FRE&LENCIES  HAVE  AN  INTEGRAL  NUMBER  CF  CYCLES  IN  200  SAMPLES 

TE^P  =  0.1 

DO  20»  Js0»  199 

TEHP  =  TbyP  ♦  ARG 

FINT(J)  =  512  ,*COSF(TEMP) 

XSUM  =  XSLM  ■*    ABSF(FINT(J)  ) 

DO  19,  K»( J*200)  ,  4000,  200 

FINT(K)  *  FINT(v) 

CONTINUE 

CONTINUE 

DO  25,  J*0»  2 

Y1(J)  =  0,0 

Y2( J)  »  0.0 

X  IN  =  0.0 

CALL  LERNFIL(X, 4000, FINT,FINT(5000),Y1,Y2, CONST, EAT, XIN) 

CALCLLATE  AVERAGE  MAGNITUDE  CF  THE  fNPUT  AND  OUTPUT  AND 
STORE  IN  CIS1  AND  CIS2  RESPECTIVELY. 
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8.10  DIFFER (BUF,  NUM,  PBUF) 

This  subroutine  differentiates  the  NUM  +  1  data  samples  in 
BUF  by  taking  the  difference  between  each  successive  pair  of  samples  and 
storing  the  NUM  resulting  differences  into  the  successive  locations  in 
PBUF.   The  indexes  within  the  DO  loop  have  been  arranged  so  that  BUF  and 
PBUF  may  be  the  same  physical  array  if  desired. 
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FORTRAN  OF  SiPT  1«68,   CATE   6/28/71 
SUBROUTINE  XIFFER(8UF.  NUM.  PBUF) 

THIS  SUBROUTINE  DIFFERENTIATES  THE  NUM  *    1  DATA  SAMPLES 
IN  BUF,  BY  T4KINO  THE  DIFFERENCE  BETWEEN  EACH  SUCCESSIVfc  PAIR 
OF  SAMPLES  AIKD  STORING  THE  NUM  RESULTING  NUMBERS  IN  THE  SUC- 
CESSIVE LOCATIONS  IK  PBUF.   IN  NORMAL  USE.  Tt-E  INPUT  DAlA 
CONSISTS  CF  tN  UM  SAMPLES  FROM  SOME  LARGER  BUFFER  SO  THAT  THE 
FINAL  DIFFERENCE.  WHICH  UTILIZES  THE  NUM  ♦  1  SAMPLE*  IS  STILL 
VALID. 

THIS  SUBROUTINE  WILL  STILL  OPERATE  CORRECTLY  IR  Bl^  AND 
PBUF  ARE  THE  SAKE  PHYSICAL  ARRAY. 

BUF   *  INPUT  DATA  ARRAY. 

NUM   =  NLMBEP  OF  DIFFERENCES  TO  BE  CALCUlATEC- 

PBUF  «  OLTPLT  DATA  ARRAY. 

DIMENSION    BLF(l).    RBUF(D 
DO    100.     I"0.     (NUM    -    i ) 
PBUFd)    ■    BLFU+i)    B    BUF(I) 

100     CONTINUE 
RETURN 
END 
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8.11  AVEMAGC3UF,  ZERO »:HUM,  AVE) 

This  subroutine  .Is  used  to  calculate  the  average  magnitude, 
AVE,  of  the  NUM  data  samples  in  the  data  buffer,  BUF,  about  the  "zero 
value"  specified  by  ZERO.   It  was  specified  in  the  above  manner  so  as  to 
make  it  applicable  to  the  widest  variety  of  cases. 

The  zero  level  parameter  is  handy  since  the  input  data  gener- 
ally has  a  significant  DC  component  by  virtue  of  the  way  the  A  to  D  con- 
vertor  operates.   If  an  average  value  is  needed,  ZERO  can  be  set  to  0.0 
if  all  the  data  is  positive  or  to  some  large  negative  value  if  it  is  not. 
In  the  latter  case,  this  value  must  be  subtracted  from  the  resulting  average 
to  get  the  average  value  of  the  original  input. 
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FORTRAN  OF"  SEPT  1*68,   CATE   4/28/71 

SUBROUTINE  AVBMG(iUF.  ZERO,  NUM,  AVE) 

THIS  SUBROUTINE  IS  USED  TO  CALCULATE  THE  AVERAfiE  MAGMIUD6  Ot- 
THS  NUM  CATA  SAMPLPS  IN  THE  INPUT  BUFFER.  BUF,  BEGINNING  AT  LOCATION 
0.   SPECIFICALLY,  THE  VALUE  OF  THE  PARAMETER,  ZERO,  IS  USED  TO  DE- 
TERMINE THE  ZERO  LEVEL  OF  THE  INPIT  DATA  ABOlT  WHICH  THb  AVEHAGb 
MAGNITUDE  IS  TO  BE  CALCULATED.   THE  RESULT,  AVE,  IS  THE  AVEHAGfc 
MAGNITUDE  OF  THE  DEVIATION  OF  THE  DATA  FROM  THIS  ZERO  LEVEL. 


JH03 
■HO 

ins 

20 
3t'21 
-URTRaN 


10 


AV 


*    TEMPCFARY  VARIABLE  USED  TO  CALCULATE  AVERAGE, 


DIMENSION  BlF(i) 
AV  ■  0.0 

DO  io,  L80»  <  NUH  ■"  1) 
AV  •  AV  ♦  ABSF(BUF(L)-ZERO> 
AVE  ■  AV/FLC*TF<NUM 
RETURN 
END 
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8.12  PEAPIC(BUF,  NUM,  PBUF,  INDX,  LIMIT) 

This  subroutine  is  used  to  pick  out  the  maxima  peaks  in  the 
input  buffer,  BUF.   The  subroutine  scans  NUM  samples  in  BUF  and  for  each 
maximum  peak  it  finds,  it  creates  entries  in  PBUF  and  INDX  containing  the 
value  of  the  maximum  peak  and  its  location  within  BUF  respectively.   Upon 
completion  the  subroutine  enters  the  number  of  peaks  found  into  the  LIMIT 
parameter  and  returns. 

PEAPIC  scans  the  contents  of  BUF  beginning  with  entry  0  and 
continuing  for  NUM  samples.   Thus  it  effectively  inspects  NUM  -  1  inter- 
vals.  PBUF  and  INDX  are  loaded  beginning  with  entry  1.   Entry  0  in  both 
buffers  is  set  to  zero.   This  is  helpful  in  those  cases  where  PEAPIC  is 
used  to  operate  on  its  own  output. 

The  operation  of  PEAPIC  is  perfectly  straightforward.   It  looks 
at  the  slopes  between  samples  and  watches  for  changes  in  the  sign  of  the 
slope.   IFLAG  is  used  to  store  the  sign  of  the  previous  slope,  index  1  is 
used  to  keep  track  of  the  position  within  BUF,  and  index  register  2  is 
used  to  keep  track  of  the  positions  within  PBUF  and  INDX  and  to  count  the 
number  of  peaks  found  by  PEAPIC. 

Note  that  the  portion  of  the  subroutine  starting  at  RECORD 
is  used  to  store  the  peak  magnitudes  which  have  been  found.   Index  register 
1  is  used  to  make  an  indexed  memory  access  to  BUF  in  order  to  obtain  this 
magnitude.   However,  since  at  this  point,  IR1  has  already  been  incremented 
to  the  next  sample  in  order  to  calculate  the  "latest"  slope,  the  address 
field  of  the  indexed  instruction  is  set  to  the  address  of  BUF  minus  one. 
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FORTRAN  OF  SEPT  *«68,   DATE   4/28/71 

SUBROUTINE  PEAPICCBUF,  NUM.  PBUF,  INDX,  LIMIT) 

THIS  9U§R0UTlNl  IS  USED  TO  EXTRACT  ThE  MAXIMA  ROlNfS  FROM 
THE  INPUT  BUFFER,  ILF.   IT  SCANS  THE  INPUT  DATA,  BEG.INMNG  WITH 
THE  ZEROTM  PCSTTION  IN  BUF.  AND  STORES  THE  VALUE  ANB  INUEX  POSI- 
TIONS OF  THE  SUCCES1IVE  MAXIMA  INTO  THE  PBUF  AND  INHX  ARRAYS, 
RESPECTIVELY*  BEOlNMNG  WITH  LOCATION  1.   THE  ZEROTM  ENTRIES 
IN  PBUF  AND  INDX  AR|  SET  TO  ZERO.   AFTER  PROCESSING  NUM 
INTERVALS  FRCM  BUF.  THE  SUBROUTINE  LOADS  THE  NUMBER  OF  MAX- 
IMA FOUND  INTO  LIMIT  AND  RETURNS. 

THIS  SUBROUTINE  WILL  WORK  PRCPERLY  IF  BlF  AND  RBUF  ARE 
THE  SAME  ARRAY  IN  STORAGE. 
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ILLAR 


BUF 
FIR 

I 

IFLAG 

INDX 
J 

LIMIT 

NUM 
PBUF 


INPUT  DATA  ARRAY. 

TEMPCRARY  LOCATION  USED  TC  STORE  PREVIOUS  SAMPL*  WHEN 

CALOLLATINC  SLOPES. 

I KDEX  REGISTER  1  -  USED  TC  KEEP  TRACK  OF  POSITIUN  IN 

BlF  AS  DATA  IS  PROCESSED. 

INDICATOR  FCR  PREVIOUS  SLCPE. 

♦i  IF  SLOPE  IS  *,  -  IF  SLCPE  IS  -. 

CLTPLT  DATA  ARRAY  FOR  LOCATION  OF  PEAKS  FQU*D  BY  PEAPIC 

INDEX  REGISTER  2  -  USED  TC  KEEP  TRACK  OF  NUMBER  OF  PEAKS 

STORED  IN  INDX  AND  PBUF. 

NUMBER  CF  PEAKS  FOUND  BY  FEAPIC. 

NLMBER  CF  INTERVALS  TO  BE  PROCESSED  EY  PEAPIC. 

CITPIT  DATA  ARRAY  FOR  MAGNITUDE  OF  PEAKS  FOUND  BY  PtAPlC. 


DIMENSION  BUF<1),  PBUF<1>,  INDX(D 

INITIALIZE  I  AND  J  t  INDEX  REGISTERS  1  AND  2  RESPECTIVELY)  ANU 
ALSO  FIR  AND  IFLAG. 

I  ■  1 
J  ■  1 
FIR  •  BUF 

IFLAG  *  1 


CALCULATE  END  ADDRESS  OF  DATA  BUFFEp. 


LEA 
SAU 


ENA 
INA 
SAU 


■MM 
PEST 


BLF 
777768 

RECORD 


IN  THE  ADDWESS  PORTION 
IN  TH6  UPPER  HALF  OF 


STORE  NUMBER  OF  SAMPLES 
OF  THE  LOOP  TEST  InSTR 
LOCATION  ITEST. 

STORE  ADDRESS  OF  THE  BUFFER,  BUF 
MINUS  i»  IN  THE  ADDRESS  PORTI8N  Ot  THfc  INSTH 
WHICH  ACCESSES  A  DISCOVERED  PEAK,  WHICH  IS 
LOCATED  IN  THE  UPPER  HaLF  OF  LOCATION  RECORD 


CHECK  THE  DIFFERENCE  BETWEEN  THE  FIRST  TWO 
DETERMINE  THE  INITIAL  SLOPE  OF  THE  DATA  AND  JET 
REGISTER  ACOCRDINGIY. 


BUFFiER  ENTRIES  TO 
THE  SIGN  OF  THE  Q 


LCA 


BLF 
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CSL  FORTRAN  OF  SEPT  1$68, 

FSB  FIR 

A„P     c  LCCP 

LDO  »"1 

STQ  IF  LAG 

SLJ     0  L'CCP 


TATE   6/28/71 


* 

* 
* 
COM 


MfcG 


POb 


RECORD 


IF  SLOPE  IS  ♦,  GO 
OTHERWISE  SET  0 
BEFORE  GCINR  TO 


DIRECTLY  TU  LOUP 
AND  IFLAG  10  - 
LOOP 


IF  FROCESSING  IS 
THE  SIGN  CF  ThE  SLCFE 
IN  THE  A  REGISTER 
CONTINUE.   IF  ThE 
SIGN  OF  THE  SLOPE 
A  REGISTER. 


TO  CONTINUE  AFTER  THE  END  TEST,  CALCULATE 
BETWEEN  THE  NEW  PAIR  OF  POINTS  ANU  LOaD  IT 
IF  THE  SLOPE  IS  ZERO  ASSlME  THErtE  lb  NO  PEAK  AND 
SLOPE  IS  NOT  ZEFU,  LOAD  THE  Q  REGJSTER  WlIH  THE 
CF  THE  PREVIOUS  POINT  PAIR  AND  TEST  THE  SIGN  OF  THE 


LCA 
FSB 

A.P 
LCD 
A^P 


1 


ELF 
F  lfi 
LCCP 
IFLAG 
FCS 


LCAD  CURRENT  SAMFLE  AND  SUBTRACT 
TO  GIVE  THE  RESULTING  SLOPE  IN 
IF  SLOFE  IS  0.  GO  DIRECTLY 
LCAC  Q  REG.  ^  I  TH  IF|  AG  FCR  TEST 
IF  SLOPE  IS  ♦  ,  GC  To  POS. 


PKEVIUUS  SAMPLE 
TME  A  REG. 
TU  LOUH. 
LA  I ER  UN. 


if  Ti-E  current  ?  points  have  a  negative  SLoPt.  chelk  the 

SIGN  OF  ThE  FhEVIOlS  SL CPE ( CURRbN T L Y  STORED  IN  THE  G  REGISTER) 
ANC  TF  IT  WAS  POSITIVE,  A  PEAK  HAS  BEEN  FCUNT.    IF  THb  HRfcViOUS 
SLCPH  WAS  NECATIVE.  RETURN  TO  THE  LQ0F. 


O.P 
SLJ 


LCCP        IF  OLD  SLOPE  WAS  ALSC 
RECORD       OTHERWISE  RtCORD  ThE 


,  CCNlUUt  bY  GUING  TU  LOuP 
CISCOVEREU  PEAK. 


if  t hE  Current  twc  points  have  a  positive  slops,  check  the 

SIGN  OF  ThE  FMEVIOlS  SLOPE,  AND  \V      IT  WAS  NEGATIVE  A  MINIMUM 
POINT  HAS  BEEN  FOUNC.    IV  THIS  CASE  THE  SIGN  CF  THE  PREVlOUb 
SLCPE  MUST  EE  ChANfEP  TO  POSITIVE  dEFCRE  RETURNING  TO  T«E  LUUP. 
IF  THE  PHEVICLS  SLCFF  MS  POSITIVE,  RETIqN  DIRECTLY  TO  I  HE  LUOP. 


"QwP 
LCQ 
STQ 
SLJ 


2   LCCP 
=  1 
IFLAG 

0   LCCP 


IF  OLD  SLOPE  WAS  ALSC  +.  CONTINUE  bY  GU1NU  Tu  LOUF 
OTHERWISE  CHANGE  ThE  clbN  OF  UlAG 

BEFORE  GOING  TC  LOCP. 


WHEN  A  FEAK  IS  FOLNC,  RECORD  ITS  MARMRCE  IN  *dUF<J)  ANU 
ITS  I  OCAT  I  ON  IN  INTXM).    THEN  INCREMENT  W(UDEX  REGIbTtR  2) 
BY  J. 


LCA 
STA 
ENA 
INA 

STA 

INI 


*  4 

FELF 

CE 

7  7 7  76 P 

INCX 

IE 


ADDRESS:  FIELD  IS  LOADED  *ITh  BuF  -  l. 

LCAD  A  WITH  INDEX  RFGlSTER  1. 
INCREMENT  A  REG.  BY  -1. 

STORE  THIS  VALUE  IN  THE  CURRENT  1NUX  ENiHY. 
INCREMENT  CURRENT  ENTRY  ACDRESi  (It.  XK2)  FOH 
INDX  AND  PtUF  BUhFERS  BY  i. 


RESET  TFE  SLCFE  OF  THE  PREVICUS  POINT  PAIR  (IE.  IFLAU)  TU 
NEGATIVE.    TFEN  CONTINUE  WITH  THE  LOOP. 
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SEFT  1S68,   CATE   6/28/71 
»'l 

I^LAG 


* 

* 
LOCP 


FIR 
FOR 

LDA 
STA 


t2cCc!!:cJ^COn[:  ME*BER  °F  the  CURRENT  PAIR  OF 

THE  STORAGE  LOCATION  FOR  POINT 
THE  NEXT  ITERATION. 


NLMBER  ONE,  IN 


POINTS  INTO 
PREPARATION 


1 


ELF 
FIR 


* 

* 
IT 


TEST 
REACHED, 


I  (INDEX  REGISTER 


D  TO  SEE  IF  THE  LAST  PAINT  HAS  BbfcN 
Co^cLTWAT  ™E  SUBROUTINE  TESTS  NUM  POINTS 
THAT  IT  FROCESSES  NLM  -  t     INTERVALS. 


WHICH    MEANS 


)D12 
1313 
N15 
U16 
1)17 
-JRTRAN 


EST     ISK 

SLJ 
FORTRAN 

00     LIMIT  = 
PBLF  =  0 
INDX  =  0 
RETURN 
END 


OUT 


ADDRESS  FIELD  IS  LOADED  WITH  NUM. 


2lU 

8.13  rectif(buf,  zero,  num,  pbuf) 

This  subroutine  is  a  half-wave  rectifier.  Using  the  value  ir 
ZERO  as  a  "zero  level",  it  examines  each  value  in  BUF  and  transfers  it  tc 
PBUF  if  it  is  greater  than  ZERO.  If  it  is  not,  it  loads  the  correspondir 
entry  of  PBUF  with  ZERO.  After  processing  FJM  samples  (beginning  with  tt 
zeroth  sample  in  BUF),  it  returns.  Note  that  the  subroutine  will  operate 
correctly  even  if  BUF  and  PBUF  are  both  the  same  physical  array. 
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00007 
00012 
00013 
00014 
00015 
00016 
00017 
-ILLAR 


10 

20 
100 


SUBROUTINE  RECTIF(RUF.  ZERO,  NUM,  PBUF) 

THIS  SlEROLTInE  HALFWAVE  RECTIFIES  THE  NUM  DATA  SAHPLtb 
IN  THE  INPUT  BUFFER,  BUF,  BEGINNING  WITH  LOCATION  0»   ALL 
POINTS  WHlCh  ARE  LFSS  THAN  THE  ZERO  LEVEl  VALUE  STOHEU  IN 
THE  PARAMETER  ZERO  ARE  TRUNCATED  TO  THAT  VALlE  BEH 08E  BbING 
TRANSFERRED  TC  THE  OUTPUT  BUFFER,  PBUF.   POUTS  GREATER  THAN 
THIS  VALLE  AFE  LOArED  INTO  THEIR  RESPECTIVE  ENTRIES  IN  PBUF 
UNCHANGEC , 

BUF  ANC  F8LF  KAY  BE  THE  SAME  BUFFER  IF  DESIRED*  a\U  THfc 
SUBROUTINE  H ILL  STILL  OPERATE. 


DIMENSION  BLF(l),  FEUF<D 
DO  100  #  1*0,  (NLM  -  i) 
IF  (BUF(I)  -  ZERO)     10» 
PBLF(I)  =  ZEFC 
GO  TO  100 
PBLF(  I  )  =  bLF (  I  ) 
CONTINUE 
RETURN 
END 


10.  20 
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Appendix  A 
FORTRAN  Implementation  of  Transformation  Equations 
for  the  Analysis  of  2N  Real  Sample  Points  With  N  Complex  Coefficients 

Following  Cooley[l966]  we  first  note  that  given 

n-1 

Z.    =   X,    +   iY.   =      I      A,  WJ  (1) 

J  J  J        k=0  ^ 

j   =0,   1,    ... ,  n-1 

27T,jki 

where  X.    and  Y.    are  real  and     WJ      =   e     N        ,   then  the   complex  amplitudes 
J  J 

defined  by: 

n-1 
X.    =      I     A'    WJ  (2) 

J        k=0     k 

n-1 
Y     =      E     A"WJ1C  (3) 

J        k=0  ^ 

can  be   shown  to  be   given  by: 


(Ak+  A?n-k)} 

Ak  =       — 2  (U) 


.„        (Ak-A!n-k)^  -i(Ak-AW  (5) 

^k  "  2i  "  2 


Thus  A'  and  A"  represent  the  complex  amplitudes  for  the  2  real  data  sets, 
X  and  Y,  respectively.   If  we  now  let  these  two  sets  be  the  odd  ana  the 
even  data  samples,  respectively,  of  the  real  data  set  T,  we  get: 

n/2_1      2    ik 
T2i+1  "  kE=Q    Ak<^>J  <6> 

(odd  points) 

n/2_1      2  ik 
T„.  =  Z     A"(W^)jk  (T) 

k=0  (  ■    +    \ 

(even  points; 

j  =  0,  1,  ...,  n/2 
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By  plugging  in  the  inverse  of  equations    (6)    and   (7),   it   can  be   shown 
that   the   coefficients   of: 


n-1 


T.    =    z       AjlWJk  (8) 

j   =  0,   1,    . .. ,  n-1 


3        k=0 


are  given  by: 


Liiw-k 


Aj«    =    (A£  +  A^W"*)  (9) 


An/2  +  k  =   K  "  ^'^  <10> 

k  =  0,   1,    ... ,  n/2-1 

— k 
Where  the   factor  W    L  comes   from  the   shifting  of  the   zero  time  location 

in  the   even  data  samples. 

Thus  by  plugging  equations    (k)    and   (5)    into  equations    (9)    and 

(10),  we   obtain  the   expressions    for  the   complex  Fourier   coefficients   for 

the  original  real  data,   namely: 

...  \  +  A?n-k)    -  iV*  +   iA?n-!c)M"k  <n> 

\     -  2 

.     *>  *  A?n-k)   +   "x^"  -   "In-!,)"'"        (12) 

n/2  +  k  2 


However,  since  the  CSL  FORTRAN  cannot  make  use  of  complex  numbers  or 

— k 
operations,  we  will  express  W   as: 

-2rik 
W   =  e       =   cos  N   -  i(sin  N  ) 
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and  separate  equations  (ll)  and  (12)  into  real  and  imaginary  components, 
Thus  since: 


— k 
A.W   =  A,  cosa  +  iA,  .cos a  -  iA,  sina  +  A  sina 

and 

— k 
A?     .  \W       =  A/      .  s    cosct  -  iA/      ,  N.cosa  -  iA/      ,  \    sin.a  -  A,      .  x.sina 
(n-k)  (n-k)r  (n-k)i  (n-k)r  (n-k)i 

27Tk 

where       a=— — -     9  we   get: 


A,       +  A/      .  \      +  A,  .cosa  -  A.     sina  +  A,      .  x.cosa  +  A,      ,  x    sina 
,  f  ,         Itr  (n-k)r  kx kr (n-k)i (n-k)r 

\r     "  2 


A.       -  A,      ,  v      +   cosa[A.  .    +  A,         *.]   -  sina[A.       -A/      .  v    ] 
kr  ( n-kjr k.i  (n-kji  kr  (n-kjr      , 


\i  "  A(n-k)i  -   \rC°Sa  "  AkiSlna  +  "(n-K)rCOSa  "  A(n-k)isiQa 
^i'    "  2 


A       -  A,         x      -    cosa!  a,       -  A,      .  %    ]   -  sina[A.    +  A,      ,  %.] 
^ci  (n-k)i  kr  (n-k)rJ  Ki  (n-k)i 


2 


\r  +  A(n-k)r  "  AkiCOSa  +  \rs±na   "  A(n-k)iCOSa   "  A(n-k)rSina 
(n-k)r  "  2 


A.       +  A,      .  x      -   cosa[A.  .    +  A/      ,  \.]  +   sina    [A       -  A/     ,  x    ] 
=     kr  (n-k)r ki  (n-kji Ttr  (n-kjr      , 

2 


A,  .  -  A/   .  \  .  +  A,  cosa  +  A  .sina  -A/   ..  \  cosa  +  A,      ,  N.sina 
ki    (n-k)i    kr ki (n-k)r (n-kji 

(n-k)i  "  2 


A1-" 
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\i  -  A(n-k)i  +  C0Sa[\r  ~  A(n-k)r]  +  &ina[Aki  +  A(n-k)i] 

2 


In  order  to  transform  these  equations  into  the  form  used  in  the 
FFTB  subroutine,  the  following  simplifications  are  used: 


FR1  =  A,   +  A/   .  n, 
kr    (.n-kjr 


FI1  =  A,  .  -  A,   .  v  . 
ki    ( n-k ) 1 


FR2  =  A,   -  A/   .  x 
kr    (n-kjr 


FI2  =  A,  .  +  A/   .  x  . 
ki    (n-kji 


CI  =  cosa 


SI  =  -sina 


Thus  we  have : 


A'"  =  .5*[FR1  +  C1*FI2  +  S1*FR2] 
kr 


A'!'=  .5*[FI1  -  C1*FR2  +  S1*FI2] 
ki 


A}'\  \      =  .5*[FF1  -  C1*FI2  -  S1*FR2] 
(n-kjr 


AJ".  x   =  .5*[FI1  +  C1*FR2  -  S1*FI2] 
(n-k)r 
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But  if  we  use  the  following  representations: 


^  .  X(k) 


A*!'  -+  Y(k) 


AJ",  v   ■>  X(n-k) 
(n-kjr 


A»''   .  -+  Y(n-k)  , 
(n-kji 


replacing  k  "by  J  and  n-k  by  Jl  and  using  the  additional  simplifications 


FR3  =  C1*FR2  -  S1*FI2 


FI3  =  C1*FI2  +  S1*FR2  , 


we  finally  get : 


X(J)  =  .5*[F.R1  +  FI3] 


Y(J)  =  .5*[FI1  -  FR3] 


X(J1)  =  ,5*[FR1  -  FI3] 


Y(J1)  =  .5*{FI1  +  FR3] 
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